File Coverage

blib/lib/CogBase/Base.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	2	2	100.0
condition	2	3	66.6
subroutine	7	7	100.0
pod	0	1	0.0
total	38	40	95.0

package CogBase::Base;
use strict;

use Class::Field qw'field const';
use XXX;

sub import {
    my ($class, $flag) = @_;
    return unless $flag && $flag eq '-base';
    my $package = caller;
    no strict 'refs';
    *{$package . "::$_"} = \&$_
      for qw'field const', qw'WWW XXX YYY ZZZ';
    push @{$package . "::ISA"}, $class;
    return;
}

sub New {
    my $self = bless {}, shift;
    while (@_) {
        my ($key, $value) = splice(@_, 0, 2);
        $self->$key($value);
    }
    $self->_initialize;
    return $self;
}

sub _initialize {}

1;