File Coverage

bin/ymask

Criterion	Covered	Total	%
statement	22	24	91.6
branch	4	6	66.6
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	31	35	88.5

#!/usr/bin/env perl
package ymask;
our $VERSION = '0.035';
# ABSTRACT: Mask a data structure to display only the desired fields

use ETL::Yertl;
use Pod::Usage::Return qw( pod2usage );
use Getopt::Long qw( GetOptionsFromArray );
use ETL::Yertl::Command::ymask;

$|++; # no buffering

sub main {
    my ( $class, @argv ) = @_;
    my %opt;
    GetOptionsFromArray( \@argv, \%opt,
        'help|h',
        'version',
    );
    return pod2usage(0) if $opt{help};
    if ( $opt{version} ) {
        print "ymask version $ymask::VERSION (Perl $^V)\n";
        return 0;
    }

    eval {
        ETL::Yertl::Command::ymask->main( @argv, \%opt );
    };
    if ( $@ ) {
        return pod2usage( "ERROR: $@" );
    }
    return 0;
}

exit __PACKAGE__->main( @ARGV ) unless caller(0);

__END__