=head1 NAME

FFmpeg::Stream::Audio - An audio stream from a (multi)media stream group.

=head1 SYNOPSIS

  $ff = FFmpeg->new();             #see FFmpeg
  #...
  $sg = $ff->create_streamgroup(); #see FFmpeg
  $st = ($sg->streams())[0];       #this is a FFmpeg::Stream

=head1 DESCRIPTION

Objects of this class are not intended to be
instantiated directly by the end user.  Access
L<FFmpeg::Stream::Audio|FFmpeg::Stream::Audio> objects using methods in
L<FFmpeg::StreamGroup|FFmpeg::StreamGroup>.  See
L<FFmpeg::StreamGroup> for more information.

This class represents an audio stream in a multimedia stream group,
and has audio-specific attributes.  General stream attributes can be
found in the L<FFmpeg::Stream|FFmpeg::Stream> class.

=head1 FEEDBACK

See L<FFmpeg/FEEDBACK> for details.

=head1 AUTHOR

Allen Day E<lt>allenday@ucla.eduE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (c) 2003-2004 Allen Day

This library is released under GPL, the Gnu Public License

=head1 APPENDIX

The rest of the documentation details each of the object methods.
Internal methods are usually preceded with a '_'.  Methods are
in alphabetical order for the most part.

=cut


# Let the code begin...


package FFmpeg::Stream::Audio;
use strict;
use base qw(FFmpeg::Stream);
our $VERSION = '0.01';

=head2 new()

This class inherits from L<FFmpeg::Stream|FFmpeg::Stream>.  See
L<FFmpeg::Stream/new()|FFmpeg::Stream::new()>

=cut

=head2 init()

This class inherits from L<FFmpeg::Stream|FFmpeg::Stream>.  See
L<FFmpeg::Stream/init()|FFmpeg::Stream::init()>

=cut

=head2 channels()

=over

=item Usage

  $obj->channels(); #get existing value

=item Function

number of audio channels in this stream, if applicable

=item Returns

value of channels (a scalar)

=item Arguments

none, read-only

=back

=cut

sub channels {
  my $self = shift;

  return $self->{'channels'};
}

=head2 sample_format()

=over

=item Usage

  $obj->sample_format(); #get existing value

=item Function

??? FIXME

=item Returns

value of sample_format (a scalar)

=item Arguments

none, read-only

=back

=cut

sub sample_format {
  my $self = shift;

  return $self->{'sample_format'};
}

=head2 sample_rate()

=over

=item Usage

  $obj->sample_rate(); #get existing value

=item Function

audio samples/second, or Hertz (Hz).

=item Returns

value of sample_rate (a scalar)

=item Arguments

none, read-only

=back

=cut

sub sample_rate {
  my $self = shift;

  return $self->{'sample_rate'};
}

1;