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   2482 use parent 'Khonsu::Ra';
  5         11  
  5         46  
4              
5             sub add {
6 141     141 0 1217 my ($self, $file, %args) = @_;
7 141         890 my $shape = $file->page->current->gfx;
8 141         46432 $self->shape($file, $shape, %args);
9 141         7044 return $self;
10             }
11              
12             1;