File Coverage

blib/lib/Blatte/Ws.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 4 0.0
total 18 22 81.8


line stmt bran cond sub pod time code
1 12     12   61 use strict;
  12         23  
  12         1918  
2              
3             package Blatte::Ws;
4              
5             sub new {
6 304     304 0 466 my($type, $ws, $obj) = @_;
7 304         3908 bless [$ws, $obj], $type;
8             }
9              
10 129     129 0 639 sub ws { $_[0]->[0] }
11 300     300 0 6580 sub obj { $_[0]->[1] }
12              
13             sub transform {
14 12     12   24456 use Blatte::Syntax;
  12         37  
  12         912  
15              
16 192     192 0 244 my $self = shift;
17 192         385 &Blatte::Syntax::transform($self->obj(), @_);
18             }
19              
20             1;
21              
22             __END__