File Coverage

blib/lib/YAMLScript/Main.pm

Criterion	Covered	Total	%
statement	18	25	72.0
branch			n/a
condition			n/a
subroutine	6	9	66.6
pod	0	3	0.0
total	24	37	64.8

use strict; use warnings;
package YAMLScript::Main;

use YAMLScript::Common;
use YAMLScript::Reader;
use YAMLScript::RT;

use base 'Lingy::Main';

sub do_version {
    RT->rep('
      (println
        (str
          "YAMLScript ["
          *HOST*
          "] version "
          (yamlscript-version)))
    ');
}

sub do_eval {
    my $self = shift;
    $YAMLScript::Reader::read_ys = 1;
    $self->SUPER::do_eval(@_);
}

sub do_repl {
    my $self = shift;
    $YAMLScript::Reader::read_ys = 1;
    $self->SUPER::do_repl(@_);
}

1;