Free achtung die kurve software for linux

IPC::Run::Simple is a simple system() wrapper.

SYNOPSIS

# Run a command and check whether it failed
use IPC::Run::Simple;
run("echo Hello, O Cruel World")
or die "Command failed";

# Describe the failure
use IPC::Run::Simple qw($ERR);
run("echo Hello, O Cruel World")
or die "Command failed: $ERR";

# Use the :all tag instead of explicitly requesting $ERR
use IPC::Run::Simple qw(:all);
run("echo Hello, O Cruel World")
or die "Command failed: $ERR";

# Die with error message if command does not return 0
use IPC::Run::Simple qw(:Fatal);
run("echo Hello, O Cruel World");

# Allow other exit values without dying
use IPC::Run::Simple qw(:Fatal);
run(command => [ "echo", "Hello, O Cruel World!" ],
allowed => [ 1, 2, 5 ]);

This module is intended to be a very simple, straightforward wrapper around the system() call to make it behave more like other builtins.

run() will return a true value if the command was executed and return a successful status code, and false otherwise. The reason for the failure will be stored in the $IPC::Run::Simple::ERR variable (which is just $ERR if you import either $ERR or :all). The description of the reason was pulled almost directly from the system() documentation.
Optionally, you can import the :Fatal tag, which will cause run() to die() with an appropriate message if the command fails for any reason.

If you wish to allow nonzero exit values but still want to trap unexpected errors, you may use an expanded call syntax. Call run() with a set of key=>value pairs. The two implemented keys are command (an array reference containing the command to run) and allowed (an array reference of exit values that are allowed without causing run() to return false or throw an exception.)

Audio:PSID is a Perl module to handle SID files (Commodore-64 music files).

SYNOPSIS

use Audio::SID;

$mySID = new Audio::SID(-filename => Test.sid) or die "Whoops!";

print "Title = " . $mySID->get(title) . "n";

print "MD5 = " . $mySID->getMD5();

$mySID->set(author => LaLa,
title => Test2,
released => 2001 Hungarian Music Crew);

$mySID->validate();
$mySID->write(-filename => Test2.sid) or die "Couldnt write file!";

@array = $mySID->getFieldNames();
print "Fieldnames = " . join( , @array) . "n";

This module is designed to handle SID files (usually bearing a .sid extension), which are music player and data routines converted from the Commodore-64 computer with an additional informational header prepended. For further details about the exact file format, see description of all SID fields in the SID_file_format.txt file included in the module package.

DateTime::Format::Epoch::RataDie is a Perl module that can convert DateTimes to/from Rata Die.

SYNOPSIS

use DateTime::Format::Epoch::RataDie;

my $dt = DateTime::Format::Epoch::RataDie->parse_datetime( $count );

DateTime::Format::Epoch::RataDie->format_datetime($dt);
# $count

my $formatter = DateTime::Format::Epoch::RataDie->new();
my $dt2 = $formatter->parse_datetime( $count );
$formatter->format_datetime($dt2);

This module can convert a DateTime object (or any object that can be converted to a DateTime object) to the Rata Die count. See DateTime::Format::Epoch::JD for a description.

File::Copy::Recursive is a Perl extension for recursively copying files and directories.

SYNOPSIS

use File::Copy::Recursive qw(fcopy rcopy dircopy fmove rmove dirmove);

fcopy($orig,$new[,$buf]) or die $!;
rcopy($orig,$new[,$buf]) or die $!;
dircopy($orig,$new[,$buf]) or die $!;

fmove($orig,$new[,$buf]) or die $!;
rmove($orig,$new[,$buf]) or die $!;
dirmove($orig,$new[,$buf]) or die $!;

This module copies and moves directories recursively (or single files, well... singley) to an optional depth and attempts to preserve each file or directorys mode.

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 handle type $args{mime_type}"
unless($drivers{$args{mime_type}});
return $class->driver_load($drivers{$args{mime_type}}, %args);
}

sub driver_new {
my($class, %args) = @_;
return bless %args, $class;
}

sub driver_required { 1; }
sub driver_requied_here { 0; }

package MyPackage::avi;

use MyPackage;
use base q(MyPackage);
use Video::Info;

$MyPackage::drivers{video/x-msvideo} = avi;

return 1;

sub driver { "avi"; }

sub driver_new {
my($class, %args) = @_;
die "file is a required parameter for $args{mime_type} files"
unless($args{file});
$args{info} = Video::Info->new(-file => $args{file})
or die "Failed to create a Video::Info object for $args{file}";
return $class->SUPER::driver_new(%args);
}

sub duration {
my $self = shift;
return $args{info}->duration;
}

package MyPackage::mp3;
use base q(MyPackage);
use MP3::Info;

$MyPackage::drivers{audio/mpeg} = mp3;

## (etc...)

package main;

my $foo = MyPackage->new(file => foobar.mp3, mime_type => audio/mpeg);
print "foobar.mp3 is ", $foo->duration, " seconds long.n";

GD::Text is a Perl module with text utilities for use with GD.

SYNOPSIS

use GD;
use GD::Text;

my $gd_text = GD::Text->new() or die GD::Text::error();
$gd_text->set_font(funny.ttf, 12) or die $gd_text->error;
$gd_text->set_font(gdTinyFont);
$gd_text->set_font(GD::Font::Tiny);
...
$gd_text->set_text($string);
my ($w, $h) = $gd_text->get(width, height);

if ($gd_text->is_ttf)
{
...
}
Or alternatively
my $gd_text = GD::Text->new(
text => Some text,
font => funny.ttf,
ptsize => 14,
);

This module provides a font-independent way of dealing with text in GD, for use with the GD::Text::* modules and GD::Graph.

XML::Schema::Type::Simple is a base class for simple XML Schema datatypes.

SYNOPSIS

package XML::Schema::Type::whatever;
use base qw( XML::Schema::Type::Simple );
use vars qw( @FACETS );

@FACETS = (
minLength => 10,
maxLength => 30,
otherFacet => {
value => $n,
fixed => 1,
annotation => "a comment",
},
);

package main;

my $type = XML::Schema::Type::whatever->new()
|| die XML::Schema::Type::whatever->error();

my $item = $type->instance(some instance value)
|| die $type->error();

# NOTE: some issues still to resolve on the precise
# nature and structure of instances (currently hash ref).
print $item->{ value };

The XML::Schema::Type::Simple module is a base class for objects that represent XML Schema simple types.