App-MP4Meta

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      "runtime" : {
         "requires" : {
            "App::Cmd::Setup" : "0",
            "AtomicParsley::Command" : "0",
            "AtomicParsley::Command::Tags" : "0",
            "File::Spec" : "0",
            "File::Temp" : "0",
            "LWP::Simple" : "0",
            "Module::Load" : "0",
            "Object::Tiny" : "0",
            "Try::Tiny" : "0",
            "WebService::OMDB" : "0",
            "WebService::TVDB" : "1.122800",
            "constant" : "0",
            "perl" : "5.010",
            "strict" : "0",
            "warnings" : "0"
         }
      },
      "test" : {
         "requires" : {

META.yml  view on Meta::CPAN

name: App-MP4Meta
requires:
  App::Cmd::Setup: 0
  AtomicParsley::Command: 0
  AtomicParsley::Command::Tags: 0
  File::Spec: 0
  File::Temp: 0
  LWP::Simple: 0
  Module::Load: 0
  Object::Tiny: 0
  Try::Tiny: 0
  WebService::OMDB: 0
  WebService::TVDB: 1.122800
  constant: 0
  perl: 5.010
  strict: 0
  warnings: 0
resources:
  bugtracker: https://github.com/andrewrjones/perl5-App-MP4Meta/issues
  homepage: https://github.com/andrewrjones/perl5-App-MP4Meta
  repository: https://github.com/andrewrjones/perl5-App-MP4Meta.git

Makefile.PL  view on Meta::CPAN

  "NAME" => "App::MP4Meta",
  "PREREQ_PM" => {
    "App::Cmd::Setup" => 0,
    "AtomicParsley::Command" => 0,
    "AtomicParsley::Command::Tags" => 0,
    "File::Spec" => 0,
    "File::Temp" => 0,
    "LWP::Simple" => 0,
    "Module::Load" => 0,
    "Object::Tiny" => 0,
    "Try::Tiny" => 0,
    "WebService::OMDB" => 0,
    "WebService::TVDB" => "1.122800",
    "constant" => 0,
    "strict" => 0,
    "warnings" => 0
  },
  "TEST_REQUIRES" => {
    "App::Cmd::Tester" => 0,
    "File::Copy" => 0,
    "File::Spec" => 0,

Makefile.PL  view on Meta::CPAN

  "IO::Handle" => 0,
  "IPC::Open3" => 0,
  "LWP::Simple" => 0,
  "Module::Load" => 0,
  "Net::Ping" => 0,
  "Object::Tiny" => 0,
  "Test::Class" => 0,
  "Test::Exception" => 0,
  "Test::MockObject" => 0,
  "Test::More" => "0.88",
  "Try::Tiny" => 0,
  "WebService::OMDB" => 0,
  "WebService::TVDB" => "1.122800",
  "WebService::TVDB::Series" => 0,
  "base" => 0,
  "constant" => 0,
  "lib" => 0,
  "strict" => 0,
  "warnings" => 0
);

lib/App/MP4Meta/Base.pm  view on Meta::CPAN

use warnings;

package App::MP4Meta::Base;
{
  $App::MP4Meta::Base::VERSION = '1.153340';
}

# ABSTRACT: Base class. Contains common functionality.

use Module::Load ();
use Try::Tiny;
use AtomicParsley::Command;

sub new {
    my $class = shift;
    my $args  = shift;
    my $self  = {};

    # file suffixes we support
    my @suffixes = qw/mp4 m4a m4p m4v m4b/;
    $self->{suffixes} = \@suffixes;

lib/App/MP4Meta/Command/film.pm  view on Meta::CPAN

package App::MP4Meta::Command::film;
{
  $App::MP4Meta::Command::film::VERSION = '1.153340';
}

# ABSTRACT: Apply metadata to a film. Parses the filename in order to get the films title and (optionally) year.

use App::MP4Meta -command;

use Try::Tiny;


sub usage_desc { "film %o [file ...]" }

sub abstract {
'Apply metadata to a film. Parses the filename in order to get the films title and (optionally) year.';
}

sub opt_spec {
    return (

lib/App/MP4Meta/Command/musicvideo.pm  view on Meta::CPAN

package App::MP4Meta::Command::musicvideo;
{
  $App::MP4Meta::Command::musicvideo::VERSION = '1.153340';
}

# ABSTRACT: Apply metadata to a music video. Parses the filename in order to get its artist and title.

use App::MP4Meta -command;

use Try::Tiny;


sub usage_desc { "musicvideo %o [file ...]" }

sub abstract {
'Apply metadata to a music video. Parses the filename in order to get its artist and title.';
}

sub opt_spec {
    return (

lib/App/MP4Meta/Command/tv.pm  view on Meta::CPAN

package App::MP4Meta::Command::tv;
{
  $App::MP4Meta::Command::tv::VERSION = '1.153340';
}

# ABSTRACT: Apply metadata to a TV Series. Parses the filename in order to get the shows title and its season and episode number.

use App::MP4Meta -command;

use Try::Tiny;


sub usage_desc { "tv %o [file ...]" }

sub abstract {
'Apply metadata to a TV Series. Parses the filename in order to get the shows title and its season and episode number.';
}

sub opt_spec {
    return (

t/000-report-versions-tiny.t  view on Meta::CPAN

eval { $v .= pmver('IO::Handle','any version') };
eval { $v .= pmver('IPC::Open3','any version') };
eval { $v .= pmver('LWP::Simple','any version') };
eval { $v .= pmver('Module::Load','any version') };
eval { $v .= pmver('Net::Ping','any version') };
eval { $v .= pmver('Object::Tiny','any version') };
eval { $v .= pmver('Test::Class','any version') };
eval { $v .= pmver('Test::Exception','any version') };
eval { $v .= pmver('Test::MockObject','any version') };
eval { $v .= pmver('Test::More','0.88') };
eval { $v .= pmver('Try::Tiny','any version') };
eval { $v .= pmver('WebService::OMDB','any version') };
eval { $v .= pmver('WebService::TVDB','1.122800') };
eval { $v .= pmver('WebService::TVDB::Series','any version') };
eval { $v .= pmver('base','any version') };
eval { $v .= pmver('constant','any version') };
eval { $v .= pmver('lib','any version') };
eval { $v .= pmver('strict','any version') };
eval { $v .= pmver('warnings','any version') };