File Coverage

blib/lib/SMIL/Code.pm

Criterion	Covered	Total	%
statement	7	7	100.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod	0	2	0.0
total	9	11	81.8

package SMIL::Code;

$VERSION = "0.898";

sub getAsString {
	my $self = shift;
	return $self->{code};
}

sub new {
    my $type = shift;
    my $self = {};
    bless $self, $type;

    $self->{code} = shift;
    return $self;
}