File Coverage

blib/lib/Khonsu/Shape/Ellipse.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::Ellipse;
2              
3 5     5   35 use parent 'Khonsu::Shape';
  5         11  
  5         32  
4              
5             sub shape {
6 2     2 0 13 my ($self, $file, $shape, %args) = @_;
7 2         17 my $box = $shape->ellipse($args{x} + $args{w}, $file->page->h - ($args{y} + $args{h}), $args{w}, $args{h});
8 2         7222 $box->fillcolor($args{fill_colour});
9 2         284 $box->fill;
10             }
11              
12             1;