File Coverage

blib/lib/Dir/Manifest/Slurp.pm

Criterion	Covered	Total	%
statement	19	20	95.0
branch	3	4	75.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	30	32	93.7

package Dir::Manifest::Slurp;
$Dir::Manifest::Slurp::VERSION = '0.6.0';
use strict;
use warnings;

use Socket qw(:crlf);

use parent qw(Exporter);
our %EXPORT_TAGS = ( 'all' => [qw( as_lf slurp )] );
our @EXPORT_OK   = ( @{ $EXPORT_TAGS{'all'} } );
our @EXPORT      = qw();

sub as_lf
{
    my ($s) = @_;
    $s =~ s#$CRLF#$LF#g;
    return $s;
}

sub slurp
{
    my ( $fh, $opts ) = @_;

    if ( $opts->{raw} )
    {
        return $fh->slurp_raw;
    }
    else
    {
        my $ret = $fh->slurp_utf8;
        return $opts->{lf} ? as_lf($ret) : $ret;
    }
}

1;

__END__