File Coverage

blib/lib/SVG/VCD/Taxon.pm

Criterion	Covered	Total	%
statement	6	12	50.0
branch			n/a
condition			n/a
subroutine	2	4	50.0
pod	0	2	0.0
total	8	18	44.4

package SVG::VCD::Taxon;

use strict;
use warnings;


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

    return bless {
	%fields
    }, $class;
}


sub field {
    my $this = shift();
    my($key) = @_;

    return $this->{$key};
}


1;