package FLV::Util;

use warnings;
use strict;
use 5.008;
use base 'Exporter';
use Readonly;

our $VERSION = '0.24';

our @EXPORT =    ## no critic(Modules::ProhibitAutomaticExportation)
    qw(
    %TAG_CLASSES
    %AUDIO_FORMATS
    %AUDIO_RATES
    %AUDIO_SIZES
    %AUDIO_TYPES
    %VIDEO_CODEC_IDS
    %VIDEO_FRAME_TYPES
);

Readonly::Hash our %TAG_CLASSES => (
   8  => 'FLV::AudioTag',
   9  => 'FLV::VideoTag',
   18 => 'FLV::MetaTag',
);

Readonly::Hash our %AUDIO_FORMATS => (
   0  => 'uncompressed',
   1  => 'ADPCM',
   2  => 'MP3',
   3  => 'Linear PCM, little endian',
   4  => 'Nellymoser 16kHz mono',
   5  => 'Nellymoser 8kHz mono',
   6  => 'Nellymoser',
   7  => 'G.711 A-law',
   8  => 'G.711 mu-law',
   10 => 'AAC',
   11 => 'Speex',
   14 => 'MP3 8kHz',
   15 => 'Device-specific sound',
);
Readonly::Hash our %AUDIO_RATES => (
   0 => '5518 Hz',
   1 => '11025 Hz',
   2 => '22050 Hz',
   3 => '44100 Hz',
);
Readonly::Hash our %AUDIO_SIZES => (
   0 => '8 bit',
   1 => '16 bit',
);
Readonly::Hash our %AUDIO_TYPES => (
   0 => 'mono',
   1 => 'stereo',
);

Readonly::Hash our %VIDEO_CODEC_IDS => (
   1 => 'JPEG',
   2 => 'Sorenson H.263',
   3 => 'Screen video',
   4 => 'On2 VP6',
   5 => 'On2 VP6 + alpha',
   6 => 'Screen video v2',
   7 => 'AVC',
);
Readonly::Hash our %VIDEO_FRAME_TYPES => (
   1 => 'keyframe',
   2 => 'interframe',
   3 => 'disposable interframe',
   4 => 'generated keyframe',
   5 => 'video info/command frame',
);

sub get_write_filehandle
{
   my $pkg     = shift;
   my $outfile = shift;

   # $OS_ERROR must be intact at the end

   ## no critic(RequireBriefOpen)

   my $outfh;
   if (ref $outfile)
   {
      $outfh = $outfile;
   }
   elsif (q{-} eq $outfile)
   {
      $outfh = \*STDOUT;
   }
   elsif (!open $outfh, '>', $outfile)
   {
      $outfh = undef;
   }
   if ($outfh)
   {
      binmode $outfh;
   }
   return $outfh;
}

1;

__END__

=head1 NAME

FLV::Util - Flash video data and helper subroutines

=head1 LICENSE

See L<FLV::Info>

=head1 EXPORTS

=over

=item %TAG_CLASSES

=item %AUDIO_FORMATS

=item %AUDIO_RATES

=item %AUDIO_SIZES

=item %AUDIO_TYPES

=item %VIDEO_CODEC_IDS

=item %VIDEO_FRAME_TYPES

=back

=head1 METHODS

=over

=item $pkg->get_write_filehandle($outfile)

Returns an open filehandle for writing, or C<undef>.  Possible inputs
are a filehandle, a filename, or C<-> which is interpreted as
C<STDOUT>.

This method preserves any C<$!> or C<$OS_ERROR> set by the internal
C<open()> call.

=back

=head1 AUTHOR

See L<FLV::Info>

=cut