File Coverage

blib/lib/Circle/Widget.pm
Criterion Covered Total %
statement 15 15 100.0
branch 4 4 100.0
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 23 24 95.8


line stmt bran cond sub pod time code
1             # You may distribute under the terms of the GNU General Public License
2             #
3             # (C) Paul Evans, 2008-2010 -- leonerd@leonerd.org.uk
4              
5             package Circle::Widget;
6              
7 4     4   186 use strict;
  4         11  
  4         130  
8 4     4   22 use warnings;
  4         8  
  4         120  
9              
10 4     4   20 use base qw( Tangence::Object );
  4         7  
  4         977  
11              
12             sub new
13             {
14 10     10 0 43 my $class = shift;
15 10         35 my %args = @_;
16              
17 10         51 my $self = $class->SUPER::new( @_ );
18              
19 10 100       2283 $self->set_prop_classes( $args{classes} ) if $args{classes};
20 10 100       67 $self->set_prop_focussed( 1 ) if $args{focussed};
21              
22 10         58 return $self;
23             }
24              
25             0x55AA;