File Coverage

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


line stmt bran cond sub pod time code
1             package Khonsu::Shape::Box;
2              
3 5     5   33 use parent 'Khonsu::Shape';
  5         12  
  5         37  
4              
5             sub shape {
6 131     131 0 1080 my ($self, $file, $shape, %args) = @_;
7 131         1264 my $box = $shape->rect($args{x}, $file->page->h - ($args{y} + $args{h}), $args{w}, $args{h});
8 131 50       22426 $box->fillcolor($args{fill_colour}) unless $args{fill_colour} eq 'transparent';
9 131         32836 $box->fill;
10             }
11              
12             1;