File Coverage

blib/lib/Circle/Widget.pm

Criterion	Covered	Total	%
statement	9	15	60.0
branch	0	4	0.0
condition			n/a
subroutine	3	4	75.0
pod	0	1	0.0
total	12	24	50.0

#  You may distribute under the terms of the GNU General Public License
#
#  (C) Paul Evans, 2008-2010 -- [e-mail]

package Circle::Widget;

use strict;
use warnings;

use base qw( Tangence::Object );

sub new
{
   my $class = shift;
   my %args = @_;

   my $self = $class->SUPER::new( @_ );

   $self->set_prop_classes( $args{classes} ) if $args{classes};
   $self->set_prop_focussed( 1 ) if $args{focussed};

   return $self;
}

0x55AA;