File Coverage

blib/lib/Text/PORE/Volatile.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod	1	1	100.0
total	12	12	100.0

#
# Volatile.pm
#
#  Implements a volatile object class, subclass of Object, so that
#  free-form objects can be created on the fly

package Text::PORE::Volatile;

use Text::PORE::Object;

@Text::PORE::Volatile::ISA = qw(Text::PORE::Object);

sub new {
    my $type = shift;
    my %attrs = @_;

    my $self = {};

    bless $self, $type;

    $self->LoadAttributes(%attrs);

    $self;
}

1;