NAME
Catalyst::Plugin::Upload::Audio::File - Get an Audio::File from an
upload
SYNOPSIS
use Catalyst qw/Upload::Audio::File/;
if ( my $upload = $c->request->upload('file_to_upload') ) {
# The destination file must have the file extension intact
my $temp_file = "/tmp".$upload->filename;
# The new file location must be reflected into the $upload object
$upload->copy_to($temp_file);
$upload->filename($temp_file);
print "Got a file of length ".$upload->length."\n";
print "The bitrate is ".$upload->bitrate."\n";
}
DESCRIPTION
Extends "Catalyst::Request::Upload" with "Audio::File".
WARNING
Because `Catalyst::Request::Upload->filename` contains the name of the
file as the user uploaded it and -not- the name of a real file on disk,
and because `$upload->tempname` is a random string with no file
extension, you must copy the file with the file extension intact and
reflect the new file location back into the $upload object as
demonstrated in the Synopsis.
METHODS
See Audio::File for more detailed descriptions of available methods.
All methods except "audio_file" return the scalar value of the file
property or "undef".
audio_file
The Audio::File object itself.
length
The length of the file.
bitrate
The bitrate of the file.
sample_rate
The sample rate of the file.
channels
The number of audio channels in the file.
title
The title from the file metadata ("tags").
artist
The artist name from the file metadata.
album
The album name from the file metadata.
comment
The comment from the file metadata.
genre
The genre from the file metadata.
year
The year from the file metadata.
track
The track number from the file metadata.
total
The total tracks from the file metadata.
SEE ALSO
Audio::File
AUTHOR
Nathaniel Heinrichs, "nheinric@cpan.org"
LICENSE
Copyright (c) 2009 Nathaniel Heinrichs
Written while employed at Orinoco K.K., L<http://www.orinoco.jp>
This library is free software.
You can redistribute it and/or modify it under the same terms as perl itself.