#!/usr/bin/perl -s -Ilib
# PODNAME: dmoss-dump
# ABSTRACT: dump DMOSS data using Data::Dumper

use warnings;
use strict;

use DMOSS;
use Data::Dumper;

my $file = shift;
$file = 'dmoss.data' unless $file;

my $dmoss = DMOSS::load($file);
print Dumper $dmoss;

__END__

=encoding UTF-8

=head1 SYNOPSIS

    $ dmoss-dump <file.data>

=head1 DESCRIPTION

Dumps a DMOSS object using L<Data::Dumper>, by defaults uses the file
C<dmoss.data>.