The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

NetApp::Filer::License -- OO Class for representing NetApp Filer licenses

SYNOPSIS

    use NetApp::Filer;

    my $filer = NetApp::Filer->new({ ... });

    my @licenses        = $filer->get_licenses;

    $filer->add_license( $code );

    $filer->delete_license( 'cifs' );

    my $license         = $filer->get_license( 'nfs' );

DESCRIPTION

This class is used to encapsulate the NetApp Filer license information.

METHODS

get_service

Returns the name of the service for the license.

get_type

Returns either 'site' or 'node', depending on whether or not the license was in fact a site license.

get_code

Returns the code for the license

get_expired

Returns a false value if the license is not expired, and if it is expired, it returns the data the license expired, for example: "26 Jun 2008"