File Coverage

blib/lib/OpenPlugin/Upload.pm

Criterion	Covered	Total	%
statement	10	22	45.4
branch	0	8	0.0
condition	0	3	0.0
subroutine	4	7	57.1
pod	1	4	25.0
total	15	44	34.0

package OpenPlugin::Upload;

# $Id: Upload.pm,v 1.13 2003/04/03 01:51:24 andreychek Exp $

use strict;
use base                    qw( OpenPlugin::Plugin );
use Data::Dumper            qw( Dumper );

$OpenPlugin::Upload::VERSION = sprintf("%d.%02d", q$Revision: 1.13 $ =~ /(\d+)\.(\d+)/);

sub OP   { return $_[0]->{_m}{OP} }
sub type { return 'upload' }

*get = \*get_incoming;

sub get_incoming {
    my ( $self, $name ) = @_;
    unless ( $name ) {
        return ( ref $self->state->{upload} eq 'HASH' )
                 ? keys %{ $self->state->{upload} } : ();
    }
    if ( ref $self->state->{upload}{ $name } eq 'ARRAY' and wantarray ) {
        return @{ $self->state->{upload}{ $name } };
    }

    return $self->state->{upload}{ $name };
}

sub set_incoming {
    my ( $self, $upload ) = @_;

    return undef unless ( $upload->{ name } );

    return $self->state->{ upload }{ $upload->{ name } } = $upload;

}


1;

__END__