File Coverage

lib/WordPress/Base/MediaObject.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	6	12	50.0
condition			n/a
subroutine	7	7	100.0
pod	4	4	100.0
total	48	54	88.8

package WordPress::Base::MediaObject;
use strict;
use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS);
use Exporter;
@ISA = qw/Exporter/;
$VERSION = sprintf "%d.%02d", q$Revision: 1.2 $ =~ /(\d+)/g;
@EXPORT_OK = qw(get_mime_type get_file_bits get_file_name abs_path_to_media_object_data);
%EXPORT_TAGS = ( 'all' => \@EXPORT_OK );

# optionally we can request other files to get mime on
sub get_mime_type {
   my $abs = shift;
   $abs or confess('missing arg');
   require File::Type;
   my $ft = new File::Type;
   my $type = $ft->mime_type($abs) or die('missing mime');
   return $type;
}

sub get_file_bits {
   my $abs_path = shift;
   $abs_path or die;
   # from http://search.cpan.org/~gaas/MIME-Base64-3.07/Base64.pm
   require MIME::Base64;

   open(FILE, $abs_path) or die($!);
   my $bits;
   my $buffer;
   while( read(FILE, $buffer, (60*57)) ) {
      $bits.= $buffer;
   }

   return $bits;
}

sub get_file_name {
   my $string = shift;
   $string or croak('missing path');

   $string=~s/^.+\/+|\/+$//g;
   return $string;
}


sub abs_path_to_media_object_data {
   my $abs_path = shift;
   $abs_path or croak('missing path arg');

   my $struct ={
       name => get_file_name($abs_path),
       type => get_mime_type($abs_path),
       bits => get_file_bits($abs_path),
   };

   return $struct;
}


1;

__END__