NAME

File::Sticker::Writer::Gif - write and standardize meta-data from GIF file

VERSION

version 3.0101

SYNOPSIS

    use File::Sticker::Writer::Gif;

    my $obj = File::Sticker::Writer::Gif->new(%args);

    my %meta = $obj->write_meta(%args);

DESCRIPTION

This will write meta-data from GIF files, and standardize it to a common nomenclature, such as "tags" for things called tags, or Keywords or Subject etc.

DEBUGGING

whoami

Used for debugging info

METHODS

priority

The priority of this writer. Writers with higher priority get tried first.

allowed_file

If this writer can be used for the given file, then this returns true. File must be a GIF image.

known_fields

Returns the fields which this writer knows about. This writer has no limitations.

    my $known_fields = $writer->known_fields();

readonly_fields

Returns the fields which this writer knows about, which can't be overwritten, but are allowed to be "wanted" fields. Things like file-size etc.

    my $readonly_fields = $writer->readonly_fields();

delete_field_from_file

Completely remove the given field. This does no checking.

    $writer->delete_field_from_file(filename=>$filename,field=>$field);

replace_all_meta

Overwrite the existing meta-data with that given.

(This supercedes the parent method because we can do it more efficiently this way)

    $writer->replace_all_meta(filename=>$filename,meta=>\%meta);

replace_one_field

Overwrite the given field. This does no checking.

    $writer->replace_one_field(filename=>$filename,field=>$field,value=>$value);

Helper Functions

Private interface.

_load_meta

Quick non-checking loading of the meta-data. Does not standardize any fields.

    my $meta = $self->_load_meta($filename);

_write_meta

Write the meta-data as YAML data in the Comment field. This overwrites whatever is there, it does not check. This saves multi-value comma-separated fields as arrays.

    $self->_write_meta(meta=>\%meta,filename=>$filename);

_get_the_real_file

If the file is a soft link, look for the file it is pointing to (because ExifTool behaves badly with soft links).

    my $real_file = $writer->_get_the_real_file(filename=>$filename);

BUGS

Please report any bugs or feature requests to the author.

cpanm File::Sticker

perl -MCPAN -e shell
install File::Sticker