File Coverage

blib/lib/Class/Scaffold/Factory/Type.pm

Criterion	Covered	Total	%
statement	26	35	74.2
branch	2	4	50.0
condition	3	6	50.0
subroutine	9	11	81.8
pod	3	3	100.0
total	43	59	72.8

use 5.008;
use warnings;
use strict;

package Class::Scaffold::Factory::Type;
BEGIN {
  $Class::Scaffold::Factory::Type::VERSION = '1.102280';
}
# ABSTRACT: Factory for framework object types
use parent 'Class::Factory::Enhanced';

sub import {
    shift;   # We don't need the package name
    my $spec = shift;
    return unless defined $spec && $spec eq ':all';
    my $pkg = caller;
    for my $symbol (Class::Scaffold::Factory::Type->get_registered_types) {
        my $factory_class =
          Class::Scaffold::Factory::Type->get_registered_class($symbol);
        no strict 'refs';
        my $target = "${pkg}::obj_${symbol}";
        *$target = sub () { $factory_class };
    }
}

# override this method with a caching version; it's called very often
sub make_object_for_type {
    my ($self, $object_type, @args) = @_;
    our %cache;
    my $class = $cache{$object_type} ||= $self->get_factory_class($object_type);
    $class->new(@args);
}

# no warnings
sub factory_log { }

sub register_factory_type {
    my ($item, @args) = @_;
    $item->SUPER::register_factory_type(@args);
    return unless $::PTAGS;
    while (my ($factory_type, $package) = splice @args, 0, 2) {
        $::PTAGS->add_tag("csft--$factory_type", "filename_for:$package", 1);
    }
}
1;


__END__