#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Web::Request::Upload;
my $upload = Web::Request::Upload->new(
filename => '/tmp/foo/bar/hoge.txt',
);
is $upload->basename, 'hoge.txt';
done_testing;
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Web::Request::Upload;
my $upload = Web::Request::Upload->new(
filename => '/tmp/foo/bar/hoge.txt',
);
is $upload->basename, 'hoge.txt';
done_testing;