File Coverage

blib/lib/File/LibMagic/FFI.pm

Criterion	Covered	Total	%
statement	45	45	100.0
branch	7	8	87.5
condition	4	6	66.6
subroutine	16	16	100.0
pod	5	5	100.0
total	77	80	96.2

package File::LibMagic::FFI;

use strict;
use warnings;
use v5.10;
use FFI::Raw;
use FFI::Util qw( scalar_to_buffer );
use FFI::CheckLib;
use constant {
  _lib       => find_lib( lib => "magic" ),
  MAGIC_NONE => 0x000000,
  MAGIC_MIME => 0x000410, #MIME_TYPE | MIME_ENCODING,
};

# ABSTRACT: Determine MIME types of data or files using libmagic
our $VERSION = '0.02'; # VERSION


use constant {

  _open => FFI::Raw->new(
    _lib, 'magic_open',
    FFI::Raw::ptr,
    FFI::Raw::int,
  ),

  #_error => FFI::Raw->new(
  #  _lib, 'magic_error',
  #  FFI::Raw::str,
  #  FFI::Raw::ptr,
  #),

  _load => FFI::Raw->new(
    _lib, 'magic_load',
    FFI::Raw::int,
    FFI::Raw::ptr, FFI::Raw::str,
  ),

  _file => FFI::Raw->new(
    _lib, 'magic_file',
    FFI::Raw::str,
    FFI::Raw::ptr, FFI::Raw::str,
  ),

  #_setflags => FFI::Raw->new(
  #  _lib, 'magic_setflags',
  #  FFI::Raw::void,
  #  FFI::Raw::ptr, FFI::Raw::int,
  #),

  _buffer => FFI::Raw->new(
    _lib, 'magic_buffer',
    FFI::Raw::str,
    FFI::Raw::ptr, FFI::Raw::ptr, FFI::Raw::int,
  ),

  #_check => FFI::Raw->new(
  #  _lib, 'magic_check',
  #  FFI::Raw::int,
  #  FFI::Raw::ptr, FFI::Raw::str,
  #),

  #_compile => FFI::Raw->new(
  #  _lib, 'magic_compile',
  #  FFI::Raw::int,
  #  FFI::Raw::ptr, FFI::Raw::str,
  #),

  _close => FFI::Raw->new(
    _lib, 'magic_close',
    FFI::Raw::void,
    FFI::Raw::ptr,
  ),
};


sub new
{
  my($class, $magic_file) = @_;
  return bless { magic_file => $magic_file }, $class;
}

sub _mime_handle
{
  my($self) = @_;
  return $self->{mime_handle} ||= do {
    my $handle = _open->call(MAGIC_MIME);
    _load->call($handle, $self->{magic_file});
    $handle;
  };
}

sub _describe_handle
{
  my($self) = @_;
  return $self->{describe_handle} ||= do {
    my $handle = _open->call(MAGIC_NONE);
    _load->call($handle, $self->{magic_file});
    $handle;
  };
}

sub DESTROY
{
  my($self) = @_;
  _close->call($self->{magic_handle}) if defined $self->{magic_handle};
  _close->call($self->{mime_handle}) if defined $self->{mime_handle};
}


sub checktype_contents
{
  _buffer->call($_[0]->_mime_handle, scalar_to_buffer(ref $_[1] ? ${$_[1]} : $_[1]));
}


sub checktype_filename
{
  _file->call($_[0]->_mime_handle, $_[1]);
}


sub describe_contents
{
  _buffer->call($_[0]->_describe_handle, scalar_to_buffer(ref $_[1] ? ${$_[1]} : $_[1]));
}


sub describe_filename
{
  _file->call($_[0]->_describe_handle, $_[1]);
}


1;

__END__