File Coverage

blib/lib/POOF/Exception.pm

Criterion	Covered	Total	%
statement	29	32	90.6
branch			n/a
condition			n/a
subroutine	9	12	75.0
pod	1	3	33.3
total	39	47	82.9

package POOF::Exception;

use 5.007;
use strict;
use warnings;
use base qw(POOF);
use Carp qw(confess croak);

our $VERSION = '1.0';

#-------------------------------------------------------------------------------
# Properties: Core

sub code : Property Public Virtual
{
    {
        'type' => 'integer',
        'min' => 1,
        'groups' => [qw(Init)],
    }
}

sub description : Property Public Virtual
{
    {
        'type' => 'string',
        'regex' => qr/\b[^ ]+\b/,
        'groups' => [qw(Init)],
    }
}

sub value : Property Public Virtual
{
    {
        'type' => 'string',
        'default' => undef,
        'null' => 1,
        'groups' => [qw(Init)],
    }
}

#-------------------------------------------------------------------------------
# Methods: initialization

sub _init
{
    my $obj = shift;
    my %args = $obj->SUPER::_init( @_ );

    # poplulate known form properties passed to the constructor if they are defined
    @{$obj}{ $obj->pGroup('Init') } = @args{ $obj->pGroup('Init') };

    return (%args);
}


1;
__END__