NAME
Modwheel::Object - Work with Modwheel data objects.
SYNOPSIS
# [....]
use Modwheel::Object;
my $object = Modwheel::Object->new({
modwheel => $modwheel,
db => $db,
user => $user,
});
# fetch all objects in the top directory.
my @objects = $object->fetch(
parent => Modwheel::Object::MW_CAT_TOP,
);
for my $child (@objects) {
print $child->name, "\n";
}
DESCRIPTION
INHERITANCE
Modwheel::Object inherits from Modwheel::Instance.
SUBROUTINES/METHODS
ATTRIBUTES
->id->set_id(int $id)->parent->set_parent(int $parent)->name->set_name(scalar $name)->type->set_type(scalar $type)->description->set_description(scalar $description)->keywords->set_keywords(scalar $keywords)->data->set_data(scalar $data)->detach->set_detach(int $detach)->active->set_active($bool_active)->created->set_created(scalar $created)->changed->set_changed(scalar $changed)->owner->set_owner(int $owner)->groupo->set_groupo(int $groupo)->revised_by->set_revised_by(int $revised_by)->sort->set_sort(int $sort)->template->set_template(scalar $template)
INSTANCE METHODS
->set_defaults()->fetch(\%match, \@select, \%options, $opt_table)->save()->fetch_tree($id)->webpath_to_id($path)->expr_by_id($id)->trash($id)->empty_trash()->create_tag($tag_name)->get_tagid_by_name($tag_name)->delete_tag($tag)->connect_with_tag($tag, $objid)->disconnect_from_tag($tag, $objid)->get_prototype_for_type($type)->remove_prototype_for_type($type)->create_prototype($type, \%fields)->get_all_prototypes()->traverse($id, \%opt_handlers, \@select, int $max_levels)
PRIVATE INSTANCE METHODS
EXPORT
MW_TREE_ROOT-
Returns the id of the root directory.
MW_TREE_TRASH-
Returns the id of the trash directory.
MW_TREE_NOPARENT-
Returns the id of the directory the maintainance script moves objects without parent to.
ITERATE_TAGS_MAX-
Maxiumum number of tags allowed.
DIAGNOSTICS
CONFIGURATION AND ENVIRONMENT
DEPENDENCIES
INCOMPATIBILITIES
None known.
BUGS AND LIMITATIONS
None known.
SEE ALSO
Modwheel::Manual
The Modwheel manual.
http://www.0x61736b.net/Modwheel/
The Modwheel website.
VERSION
v0.2.3
AUTHOR
Ask Solem, ask@0x61736b.net.
LICENSE AND COPYRIGHT
Copyright (C) 2007 by Ask Solem ask@0x61736b.net.
All rights reserved.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.6 or, at your option, any later version of Perl 5 you may have available.