Object::InsideOut Object::InsideOut is a comprehensive inside-out object support module.
Download

Object::InsideOut Ranking & Summary

Object::InsideOut Tags

Perl module object inside-out object support module inside-out

Object::InsideOut Description

Object::InsideOut is a comprehensive inside-out object support module. Object::InsideOut is a comprehensive inside-out object support module.SYNOPSIS package My::Class; { use Object::InsideOut; # Numeric field # With combined get+set accessor my @data :Field :Type(numeric) :Accessor(data); # Takes 'INPUT' (or 'input', etc.) as a mandatory parameter to ->new() my %init_args :InitArgs = ( 'INPUT' => { 'Regex' => qr/^input$/i, 'Mandatory' => 1, 'Type' => 'numeriC', }, ); # Handle class-specific args as part of ->new() sub init :Init { my ($self, $args) = @_; # Put 'input' parameter into 'data' field $self->set(@data, $args->{'INPUT'}); } } package My::Class::Sub; { use Object::InsideOut qw(My::Class); # List field # With standard 'get_X' and 'set_X' accessors # Takes 'INFO' as an optional list parameter to ->new() # Value automatically added to @info array # Defaults to my @info :Field :Type(list) :Standard(info) :Arg('Name' => 'INFO', 'Default' => 'empty'); } package Foo; { use Object::InsideOut; # Field containing My::Class objects # With combined accessor # Plus automatic parameter processing on object creation my @foo :Field :Type(My::Class) :All(foo); } package main; my $obj = My::Class::Sub->new('Input' => 69); my $info = $obj->get_info(); # my $data = $obj->data(); # 69 $obj->data(42); $data = $obj->data(); # 42 $obj = My::Class::Sub->new('INFO' => 'help', 'INPUT' => 86); $data = $obj->data(); # 86 $info = $obj->get_info(); # $obj->set_info(qw(foo bar baz)); $info = $obj->get_info(); # my $foo_obj = Foo->new('foo' => $obj); $foo_obj->foo()->data(); # 86Requirements:· Perl Requirements: · Perl

Object::InsideOut Related Software