Spoon::DataObject - Spoon Data Object Base Class

Spoon documentation Contained in the Spoon distribution.

Index

Code Index:

NAME

Top

Spoon::DataObject - Spoon Data Object Base Class

SYNOPSIS

Top

DESCRIPTION

Top

AUTHOR

Top

Brian Ingerson <INGY@cpan.org>

COPYRIGHT

Top

Copyright (c) 2004. Brian Ingerson. All rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

Spoon documentation Contained in the Spoon distribution. 
package Spoon::DataObject;
use Spoon::Base -Base;

stub 'class_id';
field 'id';

sub name {
    $self->{name} = shift if @_;
    return $self->{name} if defined $self->name;
    $self->{name} = $self->uri_unescape($self->id);
}

__DATA__