The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
NAME
    Media::Info::Mplayer - Return information on media file/URL using
    mplayer

VERSION
    version 0.03

SYNOPSIS
    Use directly:

     use Media::Info::Mplayer qw(get_media_info);
     my $res = get_media_info(media => '/home/steven/celine.avi');

    or use via Media::Info.

    Sample result:

     [
       200,
       "OK",
       {
         audio_bitrate => 128000,
         audio_format  => 85,
         audio_rate    => 44100,
         duration      => 2081.25,
         num_channels  => 2,
         num_chapters  => 0,
       },
       {
         "func.raw_output" => "ID_AUDIO_ID=0\n...",
       },
     ]

FUNCTIONS
  get_media_info(%args) -> [status, msg, result, meta]
    Return information on media file/URL.

    Arguments ('*' denotes required arguments):

    *   media* => *str*

        Media file/URL.

    Return value:

    Returns an enveloped result (an array). First element (status) is an
    integer containing HTTP status code (200 means OK, 4xx caller error, 5xx
    function error). Second element (msg) is a string containing error
    message, or 'OK' if status is 200. Third element (result) is optional,
    the actual result. Fourth element (meta) is called result metadata and
    is optional, a hash that contains extra information.

SEE ALSO
    Media::Info

HOMEPAGE
    Please visit the project's homepage at
    <https://metacpan.org/release/Media-Info-Mplayer>.

SOURCE
    Source repository is at
    <https://github.com/sharyanto/perl-Media-Info-Mplayer>.

BUGS
    Please report any bugs or feature requests on the bugtracker website
    http://rt.cpan.org/Public/Dist/Display.html?Name=Media-Info-Mplayer

    When submitting a bug or request, please include a test-file or a patch
    to an existing test-file that illustrates the bug or desired feature.

AUTHOR
    Steven Haryanto <stevenharyanto@gmail.com>

COPYRIGHT AND LICENSE
    This software is copyright (c) 2013 by Steven Haryanto.

    This is free software; you can redistribute it and/or modify it under
    the same terms as the Perl 5 programming language system itself.