Changeset 27819

Timestamp:

01/03/09 14:21:11 (4 years ago)

Author:

yusukebe

Message:

set license property

Files:

• lang/perl/misc/flickr_fetcher.pl (modified) (3 diffs)

lang/perl/misc/flickr_fetcher.pl

@@ -29 +29 @@
 has 'dir'     => ( is => 'rw', isa => 'Dir', required => 1, coerce => 1 );
 has 'api_key' => ( is => 'rw', isa => 'Str' );
+has 'license' => ( is => 'rw', isa => 'Int' );
 has '_perpage' => ( is => 'ro', isa => 'Int', default => 500 );
 has '_flickr' => ( is => 'rw', isa => 'WebService::Simple' );
@@ -85 +86 @@
             extras   => 'date_upload',
             page  => $page,
+            license => $self->license || "",
         }
     );
@@ -121 +123 @@
             text     => $keyword,
             per_page => 1,
+            license => $self->license || "",
         }
     );