libextractor-perl

GNU libextractor
Log | Files | Refs | README

Extract.pm (406B)

      1 package File::Extract;
      2 
      3 use strict;
      4 use warnings;
      5 use DynaLoader;
      6 
      7 our $VERSION = 0.01;
      8 our @ISA = qw(DynaLoader);
      9 
     10 sub dl_load_flags { 0x01 }
     11 
     12 bootstrap File::Extract $VERSION;
     13 
     14 sub new {
     15 	my $class = shift;
     16 	$class = ref $class || $class;
     17 	my $self = {};
     18 	bless $self, $class;
     19 	$self->init();
     20 	return $self;
     21 }
     22 
     23 1;
     24 
     25 =pod
     26 
     27 =head1 DESCRIPTION
     28 
     29 File::Extract - Perl interface to libdoodle/libextractor
     30 
     31 =cut