File Coverage

blib/lib/Eidolon/Core/Exception/Builder.pm

Criterion	Covered	Total	%
statement	99	99	100.0
branch	3	6	50.0
condition	2	2	100.0
subroutine	30	30	100.0
pod			n/a
total	134	137	97.8

package Eidolon::Core::Exception::Builder;
# ==============================================================================
#
#   Eidolon
#   Copyright (c) 2009, Atma 7
#   ---
#   Eidolon/Core/Exception/Builder.pm - exception builder
#
# ==============================================================================

use warnings;
use strict;

our $VERSION = "0.02"; # 2009-05-12 06:24:56

# ------------------------------------------------------------------------------
# import($class, $data)
# create exceptions classes
# ------------------------------------------------------------------------------
sub import
{
    my ($self, $class, $data, $isa, $title, $code);

    $self = shift;

    while ($class = shift)
    {
        $data  = ref $_[0] ? shift : {};
        $isa   = $data->{"isa"} || "Eidolon::Core::Exception";
        $title = $data->{"title"};

        # check if base class exists
        {
            no strict "refs";
            die "Base class doesn't exist: $isa" if (!keys %{"$isa\::"});
        }

        $code  = "package $class;\nuse base qw/$isa/;\n";
        $code .= "use constant TITLE => '$title';\n" if ($title);

        eval $code;
    }
}

1;

__END__