File Coverage

lib/Perlmazing/Perlmazing/fout.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	4	8	50.0
condition	1	3	33.3
subroutine	4	4	100.0
pod	0	1	0.0
total	30	37	81.0

use Perlmazing qw(croak);

sub main {
  my $filename = shift;
  my $data = shift;
  my $binmode = shift;
  my $encoding;
  {
    no warnings 'numeric';
    if ($binmode and ($binmode + 0) ne '1') {
      $encoding = $binmode;
      undef $binmode;
    }
  }
  open my $out, '>'.($encoding ? ":encoding($encoding)" : ''), $filename or croak "Cannot write to $filename: $!";
  binmode($out) if $binmode;
  print $out $data;
  close $out;
}

1;