— — — — |
our $VERSION = '0.' . sprintf "%04d" , ( qw($Id: User.pm 119 2007-01-18 02:55:33Z hacker $) )[2];
my @body :Field
:All( 'body' );
my @code :Field
:Type( 'NUMERIC' )
:All( 'code' );
1;
=head3 INHERITED METHODS
This module is an Object::InsideOut object that inherits from Agent::TCLI::Request. It
inherits methods from both. Please refer to their documentation for more
details.
=head1 AUTHOR
Eric Hacker E<lt>hacker at cpan.orgE<gt>
=head2 BUGS
The (ab) use of AUTOMETHODS is probably more a bug than a feature. SHOULDS and MUSTS are currently not always enforced.
Test scripts not thorough enough.
Probably many others.
=head1 LICENSE
Copyright (c) 2007, Alcatel Lucent, All rights resevred.
|