view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

    module_name       => 'App-Fotagger',
    license           => 'perl',
    dist_author       => 'Thomas Klausner',
    dist_version_from => 'lib/App/Fotagger.pm',
    requires => {
        'perl'             => '5.010',
        'Moose'         => '0.79',
        'SDL'           => '1.20',
        'Image::ExifTool' => '7.67',
        'File::Find::Rule' => '0',
        'DateTime' => '0',
        'Imager'=>'0',
        'File::Find::Rule'=>0,
    },

    build_requires    => {
        'Test::More'       => 0,
    },
    add_to_cleanup     => ['App-Fotagger-*'],
    create_makefile_pl => 'passthrough',
    recursive_test_files => 1,

META.yml  view on Meta::CPAN

version: 0.001.1
author:
  - Thomas Klausner
abstract: tag fotos
license: perl
resources:
  bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=App-Fotagger
  license: http://dev.perl.org/licenses/
  repository: http://github.com/domm/fotagger
requires:
  DateTime: 0
  File::Find::Rule: 0
  Image::ExifTool: 7.67
  Imager: 0
  Moose: 0.79
  SDL: 1.20
  perl: 5.010
build_requires:
  Test::More: 0
provides:
  App::Fotagger:

lib/App/Fotagger/Image.pm  view on Meta::CPAN

package App::Fotagger::Image;

use strict;
use warnings;
use 5.010;

use Moose;
use DateTime;
use DateTime::Format::Strptime;
use Image::ExifTool;

has 'file' => ( isa => 'Str', is => 'ro', required=>1 );
has 'exif' => (isa=>'Image::ExifTool',is=>'rw');
has 'tags' => (isa=>'Str',is=>'rw');
has 'stars' => (isa=>'Int',is=>'rw');
has 'create_date' => (isa=>'Str',is=>'rw');
has 'width' => (isa=>'Int',is=>'rw');
has 'dateparser' => (isa=>'DateTime::Format::Strptime',is=>'ro',required=>1,default=>sub {DateTime::Format::Strptime->new(pattern=>'%Y:%m:%d %H:%M:%S');
});

no Moose;
__PACKAGE__->meta->make_immutable;

sub read {
    my $self = shift;
    
    my $exif = $self->exif(Image::ExifTool->new);
    $exif->ExtractInfo($self->file);