File Coverage

lib/Draft/TkGui/Drawing.pm

Criterion	Covered	Total	%
statement	6	15	40.0
branch	0	4	0.0
condition			n/a
subroutine	2	3	66.6
pod	0	1	0.0
total	8	23	34.7

package Draft::TkGui::Drawing;

=head1 NAME

Draft::TkGui::Drawing - Tk drawing type

=head1 SYNOPSIS

A container for multiple drawing entities.

=head1 DESCRIPTION

Code for displaying a drawing on screen.

=cut

use strict;
use warnings;

# FIXME should subclass Draft::Drawing, not the other way around

#use vars qw(@ISA);
#@ISA = qw(Draft::Drawing);

sub Draw
{
    my $self = shift;
    my ($canvas, $offset, $parents, $ignore) = @_;

    $self->Read;

    foreach my $key (keys %{$self})
    {
        next if ($key =~ /^_/);
        next if grep (/^$key$/, @{$ignore});

        $self->{$key}->Draw ($canvas, $offset, $parents, $ignore);
    }
}

1;