File Coverage

blib/lib/Class/PObject/Type.pm

Criterion	Covered	Total	%
statement	44	55	80.0
branch	10	22	45.4
condition	2	6	33.3
subroutine	13	15	86.6
pod	5	9	55.5
total	74	107	69.1

package Class::PObject::Type;

# Type.pm,v 1.6 2004/05/19 06:07:52 sherzodr Exp

use strict;
#use diagnostics;
use vars ('$VERSION', '@ISA');
use overload (
    '""' => 'id',
    bool  => sub { shift->{id} ? 1 : 0 },
    fallback => 1
);
use Carp;


$VERSION = '1.03';









# meant to be overwritten
sub _init {
    my $self = shift;

}








sub new {
    my $class = shift;
    $class = ref($class) || $class;

    my $self = { @_ };

    bless $self, $class;
    $self->_init();
    return $self
}



sub id {
    my $self = shift;
    return $self->{id}
}




sub load {
    my $class = shift;
    $class = ref($class) || $class;
    return bless { id=>$_[0], args=>$_[1] }, $class
}




sub dump {
    my $self = shift;

    require Data::Dumper;
    my $d = Data::Dumper->new([$self], [ref $self]);
    $d->Indent(2);
    return $d->Dump()
}




# member functions for each  column type
sub substr {
	my $self = shift;
	unless ( @_ ) {
		croak "$self->substr(): usage error";
	}
	return unless defined $self->id();
	return CORE::substr($self->id, $_[0], $_[1])
}



sub ucfirst {
    my $self = shift;

    if ( @_ ) {
        croak "$self->ucfirst(): usage error";
    }
    return unless defined $self->id();
    return CORE::ucfirst( $self->id );
}



sub lcfirst {
    my $self = shift;

    if ( @_ ) {
        croak "$self->lcfirst(): usage error";
    }
    return unless defined $self->id();
    return CORE::lcfirst( $self->id );
}



sub lc {
    my $self = shift;

    if ( @_ ) {
        croak "$self->lc(): usage error";
    }
    return unless defined $self->id();
    return CORE::lc( $self->id );
}



sub uc {
    my $self = shift;

    if ( @_ ) {
        croak "$self->uc(): usage error";
    }
    return unless defined $self->id();
    return CORE::uc( $self->id );
}



1;
__END__