File Coverage

blib/lib/Object/Composer.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	4	6	66.6
condition	2	3	66.6
subroutine	8	8	100.0
pod	1	1	100.0
total	48	51	94.1

package Object::Composer;

use strict;
use warnings;
use Carp;


our $VERSION = q(0.0.2);


sub import {
  no strict 'refs';

  shift;

  my $caller_package = caller( );
  *{"$caller_package\::load"} = \&{ __PACKAGE__ . '::load' };
}


sub load {
  my ( @all ) = @_;

  croak 'No arguments given, not sure what you want me to do?'
    unless @all;

  # Getting called as a Class Method / Object Instance method
  # ignore the first argument
  shift if $all[0] eq __PACKAGE__ || $all[0]->isa( __PACKAGE__ );

  my $obj;
  my ( $package, @args ) = @_;

  my $code = <
    use $package;
USE

  eval $code;
  $obj = $package->new( @args );

  croak "There was an error loading: $@" if $@;

  $obj;
}


'done';


__END__