view release on metacpan or  search on metacpan

mimeopen  view on Meta::CPAN

use strict;
use warnings;
our $VERSION = '0.35';
$|++;

# ########## #
# Parse ARGV #
# ########## #
use Encode::Locale;
use Encode;
@ARGV = map { decode(locale => $_, 1) } @ARGV;

my %args = ();
my %opts = (
    'help'        => ['h'],
    'usage'       => ['u'],
    'version'     => ['v'],
    'stdin'       => [''],
    'dereference' => ['L'],
    'debug'       => ['D'],
    'database'    => ['', 1],

mimetype  view on Meta::CPAN

use strict;
use warnings;
our $VERSION = '0.35';
$|++;

# ########## #
# Parse ARGV #
# ########## #
use Encode::Locale;
use Encode;
@ARGV = map { decode(locale => $_, 1) } @ARGV;

my %args = ();
my %opts = (
    'help'          => ['h'],
    'usage'         => ['u'],
    'version'       => ['v'],
    'stdin'         => [''],
    'brief'         => ['b'],
    'namefile'      => ['f', 1],
    'noalign'       => ['N'],