File Coverage

lib/Perlmazing/Perlmazing/slurp.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	8	10	80.0
condition	3	6	50.0
subroutine	3	3	100.0
pod	0	1	0.0
total	37	43	86.0

use Perlmazing qw(croak);

sub main {
	my $file = shift;
	my $binary = shift;
  my $encoding;
  {
    no warnings 'numeric';
    if ($binary and ($binary + 0) == 0) {
      $encoding = $binary;
      undef $binary;
    }
  }
	croak "File '$file' cannot be read: $!" unless open my $in, '<'.($encoding ? ":encoding($encoding)" : ''), $file;
	binmode $in if -B $file or $binary;
  if (wantarray) {
    my @data = <$in>;
    close $in;
    return @data;
  } else {
    local $/ = undef;
    my $data = <$in>;
    close $in;
    return $data;
  }
}

1;