File Coverage

blib/lib/Net/SecurityCenter.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	3	6	50.0
condition			n/a
subroutine	9	9	100.0
pod	3	3	100.0
total	48	51	94.1

package Net::SecurityCenter;

use warnings;
use strict;

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

use Net::SecurityCenter::REST;

our $VERSION = '0.311';

my @api = qw(
    analysis
    credential
    device_info
    feed
    file
    notification
    plugin
    plugin_family
    policy
    report
    repository
    scan
    scan_result
    scanner
    status
    system
    ticket
    user
    zone
);

#-------------------------------------------------------------------------------
# CONSTRUCTOR
#-------------------------------------------------------------------------------

sub new {

    my ( $class, $host, $options ) = @_;

    my $client = Net::SecurityCenter::REST->new( $host, $options ) or return;

    my $self = {
        host    => $host,
        options => $options,
        client  => $client,
        api     => {}
    };

    bless $self, $class;

    foreach my $method (@api) {
        my $api_class = 'Net::SecurityCenter::API::' . join '', map {ucfirst} split /_/, $method;
        eval "require $api_class";    ## no critic
        $self->{api}->{$method} = $api_class->new($client);
    }

    return $self;

}

#-------------------------------------------------------------------------------
# COMMON METHODS
#-------------------------------------------------------------------------------

sub login {

    my ( $self, %args ) = @_;

    $self->client->login(%args) or return;
    return 1;

}

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

sub logout {

    my ($self) = @_;
    $self->client->logout or return;
    return 1;

}

#-------------------------------------------------------------------------------
# HELPER METHODS
#-------------------------------------------------------------------------------

foreach my $method (@api) {

    no strict 'refs';    ## no critic

    *{$method} = sub {
        my ($self) = @_;
        return $self->{api}->{$method};
    };

}

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

1;

__END__