File Coverage

lib/Gtk2/Ex/MindMapView/Layout/Group.pm

Criterion	Covered	Total	%
statement	18	46	39.1
branch	0	8	0.0
condition			n/a
subroutine	6	14	42.8
pod	6	6	100.0
total	30	74	40.5

package Gtk2::Ex::MindMapView::Layout::Group;

our $VERSION = '0.000001';

use warnings;
use strict;
use Carp;

use constant COLUMN_MAX_WIDTH=>400; # pixels

use constant PAD_HEIGHT=>10; # pixels

use constant PAD_WIDTH=>30; # pixels

sub new
{
    my $class = shift(@_);

    my %args = @_;

    my $self = \%args;

    bless $self, $class;

    _zero($self, qw(x y height width));

    return $self;
}


# my @values = $group->get(qw(x y width height));

sub get
{
    my $self = shift(@_);

    return undef if (scalar @_ == 0);

    return _get($self,shift(@_)) if (scalar @_ == 1);

    my @values = ();

    foreach my $key (@_) { push @values, _get($self,$key); }

    return @values;
}


# $group->get_horizontal_padding();

sub get_horizontal_padding()
{
    return PAD_WIDTH;
}


# $group->get_max_width();

sub get_max_width
{
    return COLUMN_MAX_WIDTH;
}


# $group->get_vertical_padding();

sub get_vertical_padding()
{
    return PAD_HEIGHT;
}


# $group->set(x=>0, y=>10, width=>20, height=>30);

sub set
{
    my $self = shift(@_);

    my %args = @_;

    foreach my $key (keys %args)
    {
	$self->{$key} = $args{$key};
    }
}


sub _get
{
    my ($self, $key) = @_;

    my $value = $self->{$key};

    croak "Undefined value for key $key.\n" if (!defined $value);

    return $value;
}


sub _zero
{
    my $self = shift(@_);

    foreach my $arg (@_)
    {
	if (!defined $self->{$arg}) { $self->{$arg} = 0; }
    }
}



1; # Magic true value required at end of module
__END__