File Coverage

blib/lib/Khonsu/Shape.pm
Criterion Covered Total %
statement 7 7 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod 0 1 0.0
total 9 10 90.0


line stmt bran cond sub pod time code
1             package Khonsu::Shape;
2              
3 5     5   1959 use parent 'Khonsu::Ra';
  5         18  
  5         36  
4              
5             sub add {
6 102     102 0 625 my ($self, $file, %args) = @_;
7 102         486 my $shape = $file->page->current->gfx;
8 102         24568 $self->shape($file, $shape, %args);
9 102         5135 return $self;
10             }
11              
12             1;