File Coverage

blib/lib/YAMLScript/Core.pm

Criterion	Covered	Total	%
statement	11	16	68.7
branch			n/a
condition	2	3	66.6
subroutine	4	6	66.6
pod	0	3	0.0
total	17	28	60.7

use strict; use warnings;
package YAMLScript::Core;

use YAMLScript::Common;

sub ends_with_q {
    my ($str, $substr) = @_;
    BOOLEAN->new(
      length("$str") >= length("$substr") and
      substr("$str", 0-length("$substr")) eq "$substr"
    );
}

sub read_file_ys {
    my ($file) = @_;
    my $text = RT->slurp_file($file);
    RT->reader->read_ys($text, $file);
}

sub read_string_ys {
    my ($string) = @_;
    RT->reader->read_ys($string, undef);
}

1;