File Coverage

blib/lib/Win32/SqlServer/DTS/AssignmentFactory.pm

Criterion	Covered	Total	%
statement	12	19	63.1
branch	0	2	0.0
condition			n/a
subroutine	4	5	80.0
pod	1	1	100.0
total	17	27	62.9

package Win32::SqlServer::DTS::AssignmentFactory;

=head1 NAME

Win32::SqlServer::DTS::AssigmentFactory - a Perl abstract class to create DynamicPropertiesTaskAssignment objects

=head1 SYNOPSIS

    use Win32::SqlServer::DTS::Task::DynamicProperty;
    use Win32::SqlServer::DTS::AssignmentFactory;

    my $assignments = $dyn_props->get_sibling->Assignments;
    my @assigments;

    if ( defined($assignments) ) {

        foreach my $assignment ( in($assignments) ) {

            push( @assignments,
                Win32::SqlServer::DTS::AssignmentFactory->create($assignment) );

        }

        return \@assignments;

    } else {

        warn "This dynamic properties does not have any assignment\r\n";

    }

=head1 DESCRIPTION

C is a simple abstract actory to create L objects.
This abstract class should be used only if one wants to extend the C API.

=head2 EXPORT

None by default.

=cut

use strict;
use warnings;
use Carp;
use Win32::SqlServer::DTS::AssignmentTypes;

=head2 METHODS

=head3 create

Expects an DTS Assignment object as a parameter. Returns an L object in a
polymorphic way, depending on the DTS Assignment type.

=cut

sub create {

    my $assignment = $_[1];

    confess "Must received a valid assignment as a parameter\n"
      unless ( defined($assignment) );

    my $type = Win32::SqlServer::DTS::AssignmentTypes->get_class_name( $assignment->SourceType );

    # using DOS directory separator
    my $location  = 'Win32\\SqlServer\\DTS\\Assignment\\' . $type . '.pm';
    my $new_class = 'Win32::SqlServer::DTS::Assignment::' . $type;

    require $location;

    return $new_class->new($assignment);

}

1;

__END__