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   28 use strict;
  4         6  
  4         90  
8 4     4   17 use warnings;
  4         6  
  4         84  
9 4     4   15 use base qw( Tangence::Object );
  4         8  
  4         645  
10              
11             our $VERSION = '0.173320';
12              
13             sub new
14             {
15 10     10 0 48 my $class = shift;
16 10         31 my %args = @_;
17              
18 10         55 my $self = $class->SUPER::new( @_ );
19              
20 10 100       2127 $self->set_prop_classes( $args{classes} ) if $args{classes};
21 10 100       63 $self->set_prop_focussed( 1 ) if $args{focussed};
22              
23 10         52 return $self;
24             }
25              
26             0x55AA;