| Win32-SqlServer-DTS documentation | Contained in the Win32-SqlServer-DTS distribution. |
Win32::SqlServer::DTS::Task::DynamicProperty - a subclass of Win32::SqlServer::DTS::Task to represent a DTSDynamicPropertiesTask object
use warnings;
use strict;
use Win32::SqlServer::DTS::Application;
use Test::More;
use XML::Simple;
my $xml = XML::Simple->new();
my $config = $xml->XMLin('test-config.xml');
my $app = Win32::SqlServer::DTS::Application->new($config->{credential});
my $package =
$app->get_db_package(
{ id => '', version_id => '', name => $config->{package}, package_password => '' } );
my $iterator = $package->get_dynamic_props();
while ( my $dyn_prop = $iterator->() ) {
print $dyn_prop->to_string(), "\n";
}
my $assign_iterator = $dyn_props->get_assignments;
while ( my $assignment = $assign_iterator->() ) {
print $assignment->to_string, "\n";
}
Win32::SqlServer::DTS::Task::DynamicProperty represents a DTS DynamicPropertiesTask task.
Nothing.
Win32::SqlServer::DTS::Task::DynamicProperty inherits all methods from Win32::SqlServer::DTS::Task, overriding those that are necessary.
Returns a integer with the number of assignments the DynamicPropertiesTask object has.
Returns a iterator, that, at each call, will return an Win32::SqlServer::DTS::Assignment object until there are no more
assignments in the Win32::SqlServer::DTS::Task::DynamicProperty.
See SYNOPSIS to see an example of usage.
Returns a string with all attributes of an Win32::SqlServer::DTS::Task::DynamicProperty class. All attributes will have a
short description and will be separated by a new line character.
perldoc.perldoc.Alceu Rodrigues de Freitas Junior, <arfreitas@cpan.org>
Copyright (C) 2006 by Alceu Rodrigues de Freitas Junior
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available.
| Win32-SqlServer-DTS documentation | Contained in the Win32-SqlServer-DTS distribution. |
package Win32::SqlServer::DTS::Task::DynamicProperty;
use 5.008008; use strict; use warnings; use base qw(Win32::SqlServer::DTS::Task); use Carp; use Win32::OLE qw(in); use Win32::SqlServer::DTS::AssignmentFactory; use Hash::Util qw(lock_keys); our $VERSION = '0.02';
sub count_assignments { my $self = shift; my $assignments = $self->get_sibling->Assignments; my $counter; foreach ( in($assignments) ) { $counter++; } return $counter; }
sub get_assignments { my $self = shift; my $assignments = $self->get_sibling->Assignments; my $total = scalar( in($assignments) ); my $counter = 0; return sub { return unless ( $counter < $total ); my $assignment = ( in($assignments) )[$counter]; $counter++; return Win32::SqlServer::DTS::AssignmentFactory->create($assignment); } }
sub to_string { my $self = shift; my $properties_string; foreach my $item ( @{ $self->get_properties } ) { $properties_string = $properties_string . "\tType = $item->{type}\r\n"; $properties_string = $properties_string . "\t\tSource = $item->{source}\r\n"; $properties_string = $properties_string . "\t\tDestination = $item->{destination}\r\n"; } return $properties_string; } 1; __END__