File Coverage

blib/lib/YAMLScript/ReadLine.pm
Criterion Covered Total %
statement 12 19 63.1
branch 0 4 0.0
condition n/a
subroutine 4 7 57.1
pod 0 3 0.0
total 16 33 48.4


line stmt bran cond sub pod time code
1 11     11   73 use strict; use warnings;
  11     11   23  
  11         321  
  11         60  
  11         23  
  11         405  
2             package YAMLScript::ReadLine;
3              
4 11     11   71 use base 'Lingy::ReadLine';
  11         20  
  11         1169  
5              
6             {
7             package Lingy::ReadLine;
8 11     11   67 use constant RL => YAMLScript::ReadLine->new;
  11         27  
  11         115  
9             }
10              
11             my $home = $ENV{HOME};
12              
13             sub history_file {
14 0     0 0   my $history_file = "$ENV{PWD}/.yamlscript_history";
15 0 0         $history_file = "$home/.yamlscript_history"
16             unless -w $history_file;
17 0           return $history_file;
18             }
19              
20             sub multi_start {
21 0     0 0   my ($self, $line) = @_;
22             (
23 0 0         $line =~ /^---(?=\s|\z)/ and
24             not $line =~ /^\.\.\.\z/m
25             );
26             }
27              
28             sub multi_stop{
29 0     0 0   my ($self, $line) = @_;
30 0           $line eq '...';
31             }
32              
33             1;