Aida Musical Synopsis

SYNOPSIS perl -MModule::AutoINC < script > ABSTRACT When Module::AutoINC is loaded, it will add itself to @INC and catch any requests for missing resources. If a Perl module is requested that has not been installed, then this will attempt to load it. Under Active State Perl (or any Perl... Platforms: *nix

SYNOPSIS # # Request # use Business::GestPayCryptHS; my $obj = new Business::GestPayCryptHS; $obj->SetShopLogin($ShopLogin); $obj->SetCurrency($Currency); $obj->SetAmount($Amount); $obj->SetShopTransactionID($ShopTransationID); $obj->SetLanguage($Language); $obj->Encrypt(); if (... Platforms: *nix

Net::Z3950 is a Perl extension for talking to Z39.50 servers. WARNING You should not be using this module unless you need this precise API for compatibility reasons. New applications should use the ZOOM-Perl module (Net::Z3950::ZOOM) instead. SYNOPSIS (This code blocks in reads: see below... Platforms: *nix

SYNOPSIS # automatical computer-vus-computer play script use Games::Checkers::Constants; use Games::Checkers::Board; use Games::Checkers::BoardTree; my $board = new Games::Checkers::Board; my $color = White; my $numMoves = 0; print $board->dump; while ($board->canColorMove($color)) {... Platforms: *nix

SYNOPSIS use AFS::Cell qw (configdir expandcell getcellinfo localcell whichcell wscell ); my $conf_dir = configdir; my $cell = expandcell(mpa); $cell = localcell; $cell = whichcell(./); $cell = wscell; ($cell, my @hosts) = getcellinfo; print "Cell: $celln"; foreach my $host... Platforms: *nix

SYNOPSIS Get the size for directory /etc/ with the block size of 1024 while following symbolic links: my $obj = File::Size->new( dir => /etc/, blocksize => 1024, followsymlinks => 1, humanreadable => 1 ); print $obj->getsize(), "n"; File::Size is used to get the size of files and... Platforms: *nix

Pod::Dsr is a Perl module Convert POD data to formatted DSR input SYNOPSIS use Pod::Dsr; my $parser = Pod::Dsr->new (release => $VERSION, section => 8); # Read POD from STDIN and write to STDOUT. $parser->parse_from_filehandle; # Read POD from file.pod and write to file.1.... Platforms: *nix

SYNOPSIS use File::Find::Rule; # find all the subdirectories of a given directory my @subdirs = File::Find::Rule->directory->in( $directory ); # find all the .pm files in @INC my @files = File::Find::Rule->file() ->name( *.pm ) ->in( @INC ); # as above, but without method chaining my... Platforms: *nix

[COPYRIGHT] SYNOPSIS use XML::DOM::Lite qw(Parser XSLT); $parser = Parser->new( whitespace => strip ); $xsldoc = $parser->parse($xsl); $xmldoc = $parser->parse($xml); $output = XSLT->process($xmldoc, $xsldoc);. Platforms: *nix

SYNOPSIS Example 1 use Config::Magic; use Data::Dumper; $input=q{ Section 1 { [Section 4] #Comment style #1 //Comment style #2 ;Comment style #3 Monkey:1 Monkey=>2 Monkey:=3 < Section 2 > Foo = Bar Baz { Bip:1 Pants==5 } < /Section > < Tasty Cheese="3" / > < Section 5 >... Platforms: *nix

SYNOPSIS my $mi = Movie::Info->new || die "Couldnt find an mplayer to usen"; foreach my $file (@ARGV) { my %info = $mi->info($file) || warn "Couldnt read info from $filen" && next; print "$file (WxH) - $info{width}x$info{height}n"; } Movie::Info is a thin layer around MPlayers... Platforms: *nix

CGI::Application::Plugin::Authentication::Driver::Dummy is a dummy authentication driver which lets anyone authenticate regardless of the password they provide SYNOPSIS use base qw(CGI::Application); use CGI::Application::Plugin::Authentication; __PACKAGE__->authen->config( DRIVER =>... Platforms: *nix

SYNOPSIS ###### # Subroutine interface # use Data::Startup qw(config override); $options = override(%default_options, @option_list ); $options = override(%default_options, @option_list ); $options = override(%default_options, %option_list ); @options_list = config(%options ); ($key,... Platforms: *nix

SYNOPSIS ##### # Subroutines # use Tie::Layers qw(is_handle config); $yes = is_handle( $file_handle ); ($key, $old_value) = config(%options, $key); ($key, $old_value) = config(%options, $key => $new_value ); #### # Config default startup options # @old_options_list =... Platforms: *nix

SYNOPSIS use Error qw( :try ); use Pipeline::Config; my $config = Pipeline::Config->new(); try { my $pipe = $config->load( somefile.type ); my $pipe2 = $config->load( somefile, type ); } catch Error with { print shift; } Pipeline::Config lets you specify the structure of a Pipeline... Platforms: *nix

SYNOPSIS use NetPacket::IP; $ip_obj = NetPacket::IP->decode($raw_pkt); $ip_pkt = NetPacket::IP->encode($ip_obj); $ip_data = NetPacket::IP::strip($raw_pkt); NetPacket::IP provides a set of routines for assembling and disassembling packets using IP (Internet Protocol). Methods... Platforms: *nix

EXAMPLE # This is a really long synopsis, but hopefully it will give you an idea... package MyPackage; use Class::Driver; use base q(Class::Driver); our %drivers; return 1; sub new { my($class, %args) = @_; die "mime_type is required" unless($args{mime_type}); die "no driver to... Platforms: *nix

SYNOPSIS use DCE::RPC; use Authen::Perl::NTLM qw(lm_hash nt_hash); use constant DCOM_IREMOTEACTIVATION => pack("H32", "B84A9F4D1C7DCF11861E0020AF6E7C57"); use constant DCOM_IF_VERSION => 0x00; use constant DCOM_XFER_SYNTAX => pack("H32", "045D888AEB1CC9119FE808002B104860"); use constant... Platforms: *nix

SYNOPSIS require UNIVERSAL::derived_classes; package A; package B; @ISA = qw( A ); package C; @ISA = qw( B ); package main; my @derived_classes = A->derived_classes; # B, C my @derived_classes_reversed = A->derived_classes_reversed; # C, B UNIVERSAL::derived_classes provides the... Platforms: *nix

Lexikon-Sonate is an interactive realtime composition environment for musical composition and live performances. It takes advantage of composition algorithms that has been developed by Karlheinz Essl since the 1980's. With this algorithmic music generator on can easily create fascinating and... Platforms: Mac