view release on metacpan or  search on metacpan

bin/eds2xdd  view on Meta::CPAN

$Getopt::Std::STANDARD_HELP_VERSION = 1;

getopts '', \my %opts;

local $/;
while (<>) {
    print eds2xdd_string $_;
}

sub VERSION_MESSAGE() { print "Convert::EDS::XDD v$Convert::EDS::XDD::VERSION\n"; }
sub HELP_MESSAGE() {
print <<"EOT"
Usage: $0 [eds_file]
       echo 'eds_content' | $0

Opens files passed as arguments and writes them to stdout as XDD.
If there are no arguments, stdin is read
EOT
}

=pod