File Coverage

blib/lib/Khonsu/Shape/Circle.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::Circle;
2              
3 5     5   39 use parent 'Khonsu::Shape';
  5         10  
  5         28  
4              
5             sub shape {
6 2     2 0 11 my ($self, $file, $shape, %args) = @_;
7 2         17 my $circle = $shape->circle($args{x} + $args{r}, $file->page->h - ($args{y} + $args{r}), $args{r});
8 2         7490 $circle->fillcolor($args{fill_colour});
9 2         267 $circle->fill;
10             }
11              
12             1;