BEISPIEL

# ist dieses eine wirklich lange Synopse, aber hoffnungsvoll gibt es Ihnen eine Idee…

Paket MyPackage;

Gebrauch Kategorie:: Fahrer;
falsches q verwenden (Kategorie:: Fahrer);

unser %drivers;

Umsatz 1;

Vorneues {
mein ($class, %args) = @_;
„mime_type sterben benötigt“ es sei denn ($args {mime_type});
„keinen Fahrer sterben, um Typen $args {mime_type} zu handhaben“
es sei denn ($drivers {$args {mime_type}});
Rückhol$class->driver_load ($drivers {$args {mime_type}}, %args);
}

Vordriver_new {
mein ($class, %args) = @_;
zurückgehen segnen %args, $class;
}

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

Paket MyPackage:: avi;

MyPackage verwenden;
falsches q (MyPackage) verwenden;
Gebrauch Video:: Info;

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

Umsatz 1;

Vorfahrer {„avi“; }

Vordriver_new {
mein ($class, %args) = @_;
„Datei sterben ist ein erforderlicher Parameter für $args {mime_type} archiviert“
es sei denn ($args {Datei});
$args {Info} = Video:: Info->new (- Datei => $args {Datei})
oder sterben „nicht gekonnt ein Video erstellen:: Info-Nachricht für $args {Datei}“;
Rückhol$class->SUPER:: driver_new (%args);
}

Vordauer {
mein $self = Schiebung;
Rückhol$args {Info} - >duration;
}

Paket MyPackage:: mp3;
falsches q (MyPackage) verwenden;
Gebrauch MP3:: Info;

$MyPackage:: Fahrer {Audio/MPEG} = mp3;

## (ETC…)

Pakethauptleitung;

mein $foo = MyPackage->new (Datei => foobar.mp3, mime_type => Audio/MPEG);
Druck „foobar.mp3 ist“, $foo->duration, „Sekunden long.n“;