NetApp::Filer::License (3pm)

    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' );

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

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: \*(L"26 Jun 2008\*(R"