/ 
Object-Relation-v0.1.0
/ Object::Relation::Meta::Widget

Name

Object::Relation::Meta::Wiget - Object::Relation object attribute widget specifications

Synopsis

# Assuming Object::Relation::Thingy was generated by Object::Relation::Meta.
my $class = Object::Relation::Thingy->my_class;

for my $attr ($class->attributes) {
    my $wm = $attr->widget_meta;
    if ($wm->type eq 'text') {
        output_text_field($wm);
    } elsif ($wm->type eq 'select') {
        output_select_list($wm);
    } else {
        die "Huh, wha?";
    }
}

Description

This class inherits from Widget::Meta to provide widget metadata for Object::Relation class attributes. See the Widget::Meta documentation for details on widget metadata. See the "Instance Interface" for the attributes added to Object::Relation::Meta::Widget in addition to those defined by Widget::Meta.

Instance Interface

Accessor Methods

tip

my $tip = $class->tip;

Returns the localized form of the tip for the widget, such as "Name of this object".

Copyright and License

Copyright (c) 2004-2006 Kineticode, Inc. <info@obj_relode.com>

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