File Coverage

blib/lib/Encode/Argv.pm

Criterion	Covered	Total	%
statement	22	23	95.6
branch	6	6	100.0
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	33	34	97.0

# $Id: /mirror/coderepos/lang/perl/Encode-Argv/trunk/lib/Encode/Argv.pm 50486 2008-04-15T14:50:02.946222Z daisuke  $

package Encode::Argv;
use strict;
use warnings;
use 5.8.0;
use Encode ();
our $VERSION = '0.00002';

sub import
{
    my ($class, $decode_from, $encode_to) = @_;

    if (! $decode_from) {
        eval {
            require Term::Encoding;
            $decode_from = Term::Encoding::get_encoding();
        };
    }

    if ($decode_from) {
        foreach (@ARGV) {
            $_ = Encode::decode($decode_from, $_);
        }
    }

    if ($encode_to) {
        foreach (@ARGV) {
            $_ = Encode::encode($encode_to, $_);
        }
    }
}

1;

__END__