Macbeth Synopsis

SYNOPSIS ex. CGI use GD::Barcode::UPCE; binmode(STDOUT); print "Content-Type: image/pngnn"; print GD::Barcode->new(EAN13, 123456789012)->plot->png; with Error Check my $oGdBar = GD::Barcode->new(EAN13, 12345678901); die $GD::Barcode::errStr unless($oGdBar); #Invalid Length...

Image::BMP is a bitmap parser/viewer. SYNOPSIS use Image::BMP; # Example one: my $img = new Image::BMP( file => some.bmp, debug => 1, ); $img->view_ascii; # Example two: my $img2 = new Image::BMP; $img2->open_file(another.bmp); my $color = $img2->xy(100,100); # Get pixel at...

SYNOPSIS use Mail::Abuse::Report; my $r = new Mail::Abuse::Report ( -text => $report_text, -reader => $reader, -filters => [ $f1, $f2, ... ], -parsers => [ $i1, $i2, ... ], -processors => [ $p1, $p2, ... ], -debug => 1, -config => $config_file, ); This class encapsulates an abuse...


Platforms: *nix

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