File Coverage

blib/lib/Flickr/Types/Tools.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	20	20	100.0

package Flickr::Types::Tools;

use strictures;
use Carp;

our $VERSION = '1.22';

use Type::Library
   -base,
   -declare => qw(
                     FlickrAPI
                     FlickrAPIcameras
                     FlickrAPIargs
                     FlickrPermStr
                     FlickrToken
                     HexNum
);
use Type::Utils -all;
use Types::Standard qw ( Optional Dict Int Str InstanceOf Any );

declare FlickrAPI,
  api => InstanceOf ["Flickr::API"];

declare FlickrAPIcameras, api => InstanceOf ["Flickr::API::Cameras"];

declare HexNum,
      as Str,
      where { /^[a-f0-9]+$/i };

declare FlickrToken,
    as Str,
    where { /^[a-f0-9\-]+$/i };

declare FlickrPermStr,
    as Str,
    where { /none|read|write|delete/i };


declare FlickrAPIargs,
  as Dict [
    consumer_key     => HexNum,
    consumer_secret  => HexNum,
    access_token     => Optional [Any],
    callback         => Optional [Str],
    nonce            => Optional [Str],
    request_method   => Optional [Str],
    request_url      => Optional [Str],
    signature_method => Optional [Str],
    timestamp        => Optional [Int],
    token            => Optional [FlickrToken],
    token_secret     => Optional [HexNum],
    version          => Optional [Str],
  ];

1;

__END__