Apache::Upload::Util

Perl

とか作ったの忘れてた。
いま、思い出した。
Apache::Uploadってどこー？？？とか、
どういう形で拡張したらいいか微妙に悩んだような希ガス。



package Apache::Upload::Util;

use strict;

use warnings;
sub import {

    my $self = shift;

    {

        no strict 'refs';

        *{"Apache\::Upload\::basename"} = \&basename;

    }

}
sub basename {

    my $self = shift;

    (my $basename = $self->filename) =~ s/.+[\/\\]//;

    return $basename;

}
1;
=head1 NAME
    Apache::Upload::Util - add Apache::Upload's method.
=head1 SYNOPSIS
    use Apache::Upload::Util;
=head1 METHOD
=head2 basename
    my $basename = $upload->basename;
get file basename.
=head1 AUTHOR
Atsushi Kobayashi, Eatsushi _at_ mfac.jpE

Tokuhiro Matsuno, Etokuhiro _at_ mfac.jpE
=cut