File Coverage

blib/lib/YAML/Perl/Reader.pm
Criterion Covered Total %
statement 6 10 60.0
branch n/a
condition n/a
subroutine 2 4 50.0
pod 0 2 0.0
total 8 16 50.0


line stmt bran cond sub pod time code
1             package YAML::Perl::Reader;
2 1     1   311 use strict;
  1         3  
  1         24  
3 1     1   4 use warnings;
  1         2  
  1         75  
4              
5             our $VERSION = '0.12';
6              
7             sub new {
8 0     0 0   my ($class, %args) = @_;
9 0           return bless { %args }, $class;
10             }
11              
12             sub read {
13 0     0 0   my ($self) = @_;
14 0           return $self->{input};
15             }
16              
17             1;