# $Id: /mirror/perl/File-Extract/trunk/lib/File/Extract/Result.pm 4210 2007-10-27T13:43:07.499967Z daisuke  $
#
# Copyright (c) 2005 Daisuke Maki <dmaki@cpan.org>
# All rights reserved.

package File::Extract::Result;
use strict;

sub new
{
    my $class = shift;
    my %args  = @_;
    my $self  = bless {%args}, $class;
    return $self;
}

sub _elem
{
    my $self  = shift;
    my $field = shift;
    my $old   = $self->{$field};
    if (@_) {
        $self->{$field} = shift;
    }
    return $old;
}
sub mime_type { shift->_elem('mime_type', @_) }
sub text      { shift->_elem('text', @_) }
sub metadata  { shift->_elem('metadata', @_) }
sub filename  { shift->_elem('filename', @_) }

1;

__END__

=head1 NAME

File::Extract::Result - Extraction Result Object

=head1 DESCRIPTION

=head1 METHODS

=head2 new

=head2 text

Get/set the extracted text.

=head2 filename

Get/set the filename which the text was extracted from.

=head2 mime_type

Get/set the MIME type of the file that the text was extracted from.

=head2 metadata

Get/set the metadata. This can be anything depending on the processor
that created this result.

=cut