Class::Driver 0.005

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";.

Requirements:	No special requirements
Platforms:	Linux
Keyword:	Args,  Class,  Classdriver,  Driver,  Libraries,  Mime,  Mypackage,  Programming,  Sub,  Type
Users rating:	0/10