—#!/usr/bin/env perl
# PODNAME: ffprobe
# ABSTRACT: Command ffprobe of Alien-ffmpeg
$|=1;
use
strict;
use
warnings;
use
Path::Class;
use
Alien::ffmpeg;
my
$abs
;
if
(Alien::ffmpeg->install_type ne
'system'
) {
$abs
= file(dist_dir(
'Alien-ffmpeg'
),
'bin'
,
'ffprobe'
)->cleanup->absolute;
}
else
{
die
"Alien::ffmpeg reinstalled as non-share install. Please remove wrapper at $0"
;
}
exec
(
$abs
,
@ARGV
) or
STDERR
"couldn't exec ffprobe: $!"
;
__END__
=pod
=head1 NAME
ffprobe - Command ffprobe of Alien-ffmpeg
=head1 VERSION
version 0.105
=head1 AUTHOR
Torsten Raudssus <torsten@raudss.us>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2013 by Torsten Raudssus.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut