Yet Another CPAN Grep

Movies-Organizer ( C/CE/CELOGEEK/Movies-Organizer-1.3.tar.gz, CELOGEEK, 2014; MetaCPAN )

Movies-Organizer/lib/Movies/Organizer.pm ( view source; MetaCPAN )


use File::Spec;
use File::Copy;
use Term::ReadLine;
use Term::ReadLine::Perl;
use WWW::REST;
use JSON::XS;
use 5.010;
use utf8;

option 'from' => (
    doc => 'Source directory to organize',
    is

ift;
                croak $self->status_line if $self->is_error;
                my $ct = decode_json( $self->content );
                return ref $ct eq 'ARRAY' ? $ct->[0] : $ct;
            }