Class::PObject::Type::VARCHAR - Defines VARCHAR column type


Class-PObject documentation Contained in the Class-PObject distribution.

Index


Code Index:

NAME

Top

Class::PObject::Type::VARCHAR - Defines VARCHAR column type

DESCRIPTION

Top

ISA Class::PObject::Type

COPYRIGHT AND LICENSE

Top


Class-PObject documentation Contained in the Class-PObject distribution.

package Class::PObject::Type::VARCHAR;

# VARCHAR.pm,v 1.3 2003/09/09 00:11:59 sherzodr Exp

use strict;
#use diagnostics;
use vars ('$VERSION', '@ISA');
use Class::PObject::Type;
use overload (
    '""' => sub { $_[0]->id },
    bool => sub { $_[0]->id ? 1 : 0 },
    fallback => 1,
);

@ISA = ("Class::PObject::Type");

$VERSION = '1.02';





1;
__END__
# Below is stub documentation for your module. You'd better edit it!