File Coverage

blib/lib/Net/SecurityCenter/API/File.pm

Criterion	Covered	Total	%
statement	15	25	60.0
branch	0	8	0.0
condition			n/a
subroutine	5	7	71.4
pod	2	2	100.0
total	22	42	52.3

package Net::SecurityCenter::API::File;

use warnings;
use strict;

use Carp;

use parent 'Net::SecurityCenter::Base';

use Net::SecurityCenter::Utils qw(:all);

our $VERSION = '0.300';

#-------------------------------------------------------------------------------
# METHODS
#-------------------------------------------------------------------------------

sub upload {

    my ( $self, $file ) = @_;

    ( @_ == 2 ) or croak( 'Usage: ' . __PACKAGE__ . '->upload( $FILE )' );

    my $response = $self->client->upload($file);

    return if ( !$response );
    return $response->{filename};

}

#-------------------------------------------------------------------------------

sub clear {

    my ( $self, $file ) = @_;

    ( @_ == 2 ) or croak( 'Usage: ' . __PACKAGE__ . '->clear( $FILE )' );

    my $response = $self->client->post( '/file/clear', { filename => $file } );

    return if ( !$response );
    return 1;

}

#-------------------------------------------------------------------------------

1;

__END__