Alceu Rodrigues de Freitas Junior > Win32-SqlServer-DTS > Win32::SqlServer::DTS::Assignment::Destination::Connection

Download:
Win32-SqlServer-DTS-0.10.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Source  

NAME ^

Win32::SqlServer::DTS::Assignment::Destination::Connection - a subclass of Win32::SqlServer::DTS::Assignment::Destination for connections

SYNOPSIS ^

    use warnings;
    use strict;
    use Win32::SqlServer::DTS::Application;
    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->() ) {

        my $iterator = $dyn_props->get_assignments();

        while ( my $assignment = $iterator->() ) {

            my $dest = $assignment->get_destination();

            if ( $dest->changes('Connection') ) {

                print $dest->get_string(), "\n";

            }

        }
    
    }

DESCRIPTION ^

Win32::SqlServer::DTS::Assignment::Destination::Connection is a subclass of Win32::SqlServer::DTS::Assignment::Destination and represents the global variables as the assignments destinations of a DTS package.

The string returned by the get_string method has this format:

'Connections';name of the connection;'Properties';name of the property.

EXPORT

Nothing.

METHODS

initialize

initialize method sets the destination attribute as a DTS Package connection property. It also sets the attribute conn_name with the connection name.

SEE ALSO ^

AUTHOR ^

Alceu Rodrigues de Freitas Junior, <arfreitas@cpan.org>

COPYRIGHT AND LICENSE ^

Copyright (C) 2007 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.

syntax highlighting: