/usr/share/perl5/SReview/Map.pm is in sreview-common 0.3.0-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 | package SReview::Map;
use Moose;
has 'input' => (
required => 1,
is => 'rw',
isa => 'SReview::Video',
);
has 'type' => (
isa => 'Str',
is => 'rw',
default => 'channel',
);
has 'choice' => (
isa => 'Str',
is => 'rw',
default => 'left',
);
sub arguments($$) {
my $self = shift;
my $index = shift;
my $stream_id;
if($self->type eq "channel") {
if($self->choice eq "both") {
return ('-ac', '1');
}
$stream_id = $self->input->astream_id;
if($self->choice eq "left") {
return ('-map_channel', "$index.$stream_id.0");
} elsif($self->choice eq "right") {
return ('-map_channel', "$index.$stream_id.1");
} else {
# other choices exist?!?
...
}
} elsif($self->type eq "stream") {
if($self->choice eq 'audio') {
return ('-map', "$index:a");
} elsif($self->choice eq 'video') {
return ('-map', "$index:v");
} else {
...
}
}
}
no Moose;
1;
|