File Coverage

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

Criterion	Covered	Total	%
statement	12	20	60.0
branch	0	2	0.0
condition			n/a
subroutine	4	5	80.0
pod	1	1	100.0
total	17	28	60.7

package Win32::SqlServer::DTS::TaskFactory;

=head1 NAME

Win32::SqlServer::DTS::TaskFactory - a Perl abstract class to create DTS Package Tasks in a polymorphic way

=head1 SYNOPSIS

    use Win32::SqlServer::DTS::TaskFactory;

	# $task is a unknow DTS Task object
    my $new_task = Win32::SqlServer::DTS::TaskFactory::create($task);
    print $new_task->to_string, "\n";

=head1 DESCRIPTION

C creates C subclasses objects depending on the type of the DTS Package Task object
passed as a reference.

=head2 EXPORT

Nothing.

=cut

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

=head2 METHODS

=head3 create

Expects a C object passed as a parameter.

Returns a object from a subclass of C depending on the C property from the C
object passed as a parameter.

=cut

sub create {

    my $task           = shift;
    my $type_converted = Win32::SqlServer::DTS::TaskTypes::convert( $task->CustomTaskID );

    if ( defined($type_converted) ) {

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

        require $location;

        return $new_class->new( $task );

    }
    else {

        croak $task->CustomTaskID . ' is not a implemented Win32::SqlServer::DTS::Task subclass';

    }

}

1;

__END__