File Coverage

blib/lib/Tk/CanvasLogo.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

package Tk::CanvasLogo;

use 5.008005;
use strict;
use warnings;

use vars qw($VERSION);
$VERSION = '0.2';

use Tk qw (Ev);
use AutoLoader;

use base qw(Tk::Canvas);

Construct Tk::Widget 'CanvasLogo';


sub ClassInit
{
 my ($class,$mw) = @_;
 $class->SUPER::ClassInit($mw);
 return $class;
}


sub InitObject
{
 my ($w) = @_;
 $w->SUPER::InitObject;
}


use Tk::CanvasLogo::Turtle;


sub NewTurtle {
	return Tk::CanvasLogo::Turtle->_newTurtle(@_);
}




1;
__END__