File Coverage

blib/lib/Swim/Util.pm

Criterion	Covered	Total	%
statement	9	29	31.0
branch	0	6	0.0
condition			n/a
subroutine	3	5	60.0
pod	0	2	0.0
total	12	42	28.5

use strict; use warnings;
package Swim::Util;
use Encode;

sub merge_meta {
  require YAML::XS;
  require Hash::Merge;
  my ($class, $meta, $yaml) = @_;
  my $data = eval {
    YAML::XS::Load(Encode::encode 'UTF-8', $yaml);
  };
  if ($@) {
    warn "Swim meta failed to load:\n$@";
    $data = {};
  }
  Hash::Merge::merge($data, $meta);
}

sub slurp {
  my ($class, $file) = @_;
  local $/;
  my $text;
  if (defined $file) {
    open my $fh, $file
      or die "Can't open '$file' for input";
    binmode($fh, ':encoding(UTF-8)');
    $text = <$fh>;
    close $fh;
  }
  else {
    binmode(STDIN, ':encoding(UTF-8)');
    $text = ;
  }
  return $text;
}

1;