File Coverage

blib/lib/Khonsu/Shape/Pie.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::Pie;
2              
3 5     5   34 use parent 'Khonsu::Shape';
  5         10  
  5         25  
4              
5             sub shape {
6 4     4 0 51 my ($self, $file, $shape, %args) = @_;
7 4         31 my $box = $shape->pie($args{x} + $args{r}, $file->page->h - ($args{y} + $args{r}), $args{r}, $args{r}, $args{rx}, $args{ry});
8 4         9702 $box->fillcolor($args{fill_colour});
9 4         533 $box->fill;
10             }
11              
12             1;