Net-FS-Flickr

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

use Module::Build;

my $build = Module::Build
  ->new( module_name => "Net::FS::Flickr",
         license     => 'perl',
         script_files => [ 'bin/flickrfs' ],
         requires    => {
                          'Test::More'                       => 0,
                          'File::Basename'                   => 0,
                          'Flickr::Upload'                   => 0,
                          'Acme::Steganography::Image::Png'  => '0.05',    
                          'LWP::Simple'                      => 0,
                          'File::Temp'                       => 0,
                        },
         create_makefile_pl => 'traditional',
       );

$build->create_build_script;

META.yml  view on Meta::CPAN

---
name: Net-FS-Flickr
version: 0.1
author: ~
abstract: store and retrieve files on Flickr
license: perl
requires:
  Acme::Steganography::Image::Png: 0.05
  File::Basename: 0
  File::Temp: 0
  Flickr::Upload: 0
  LWP::Simple: 0
  Test::More: 0
provides:
  Net::FS::Flickr:
    file: lib/Net/FS/Flickr.pm
    version: 0.1
  Net::FS::Flickr::Access:

Makefile.PL  view on Meta::CPAN

# Note: this file was auto-generated by Module::Build::Compat version 0.03
use ExtUtils::MakeMaker;
WriteMakefile
(
          'NAME' => 'Net::FS::Flickr',
          'VERSION_FROM' => 'lib/Net/FS/Flickr.pm',
          'PREREQ_PM' => {
                           'Acme::Steganography::Image::Png' => '0.05',
                           'File::Basename' => '0',
                           'File::Temp' => '0',
                           'Flickr::Upload' => '0',
                           'LWP::Simple' => '0',
                           'Test::More' => '0'
                         },
          'INSTALLDIRS' => 'site',
          'EXE_FILES' => [
                           'bin/flickrfs'
                         ],

lib/Net/FS/Flickr.pm  view on Meta::CPAN

package Net::FS::Flickr;
use Data::Dumper;
use LWP::Simple;
use Acme::Steganography::Image::Png;
use File::Temp qw/tempdir/;
use Cwd qw(cwd);
use Net::FS::Flickr::Access;
use Net::FS::Flickr::DefaultImage;

use strict;
our $VERSION           = "0.1";
our $FILESTORE_VERSION = "0.1"; # this way we can track different revisions of filestore format

lib/Net/FS/Flickr.pm  view on Meta::CPAN

=head2 new

Takes a valid API key and a valid secret key

=cut

sub new {
    my $class = shift;
    my %opts  = @_;
	my $flickr = Net::FS::Flickr::Access->new({ key => $opts{key}, secret => $opts{secret} });
    my $writer = Acme::Steganography::Image::Png::RGB::556FS->new();
    my $self = { _flickr => $flickr, _writer => $writer };
    return bless $self, $class;
}

=head2 files [nsid, email or username]

Get a list of all the files on the system

Given an nsid, username or email, use that. Otherwise use the nsid from 
the auth token.