File Coverage

blib/lib/Slurp.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch	4	4	100.0
condition			n/a
subroutine	5	5	100.0
pod	3	3	100.0
total	24	24	100.0

package Slurp;

use Exporter;
use vars qw/ @EXPORT @EXPORT_OK @ISA $VERSION /;

@ISA = qw/ Exporter /;
@EXPORT = qw/ slurp /;
@EXPORT_OK = qw/ slurp to_array to_scalar /;


$VERSION = '0.4';


sub slurp {
    local( $/, @ARGV ) = ( wantarray ? $/ : undef, @_ );
    return ;
}

sub to_array {
    my @array = slurp( @_ );
    return wantarray ? @array : \@array;
}

sub to_scalar {
    my $scalar = slurp( @_ );
    return $scalar;
}


1;


__END__