File Coverage

lib/Ubic/Credentials.pm

Criterion	Covered	Total	%
statement	21	28	75.0
branch	1	2	50.0
condition	1	2	50.0
subroutine	7	12	58.3
pod	6	6	100.0
total	36	50	72.0

package Ubic::Credentials;
$Ubic::Credentials::VERSION = '1.58_01'; # TRIAL
use strict;
use warnings;

# ABSTRACT: base class for OS-specific credential methods


use List::MoreUtils qw(uniq);

use Params::Validate qw(:all);
use Carp;

our $OS_CLASS;

sub import {
    my %module = (
        MSWin32 => 'Windows',
        darwin  => 'MacOSX',
    );

    my $module = $ENV{UBIC_CREDENTIALS_OS} || $ENV{UBIC_OS} || $module{$^O} || 'POSIX';

    require "Ubic/Credentials/OS/$module.pm";
    $OS_CLASS = "Ubic::Credentials::OS::$module";
}


sub new {
    my $class = shift;
    return $OS_CLASS->new(@_) if $class eq 'Ubic::Credentials';
    croak 'constructor not implemented';
}

sub set_effective {
    croak 'not implemented';
}

sub reset_effective {
    croak 'not implemented';
}

sub eq {
    croak 'not implemented';
}

sub set {
    croak 'not implemented';
}

sub as_string {
    my $self = shift;
    return "$self"; # ugly default stringification; please override in subclasses
}


1;

__END__