oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

first rev of new definition class

Browse source
This commit is contained in:
Graham Knop 2009-10-12 05:41:04 -05:00
parent 814bde6b93
commit 34182a39ee
3 changed files with 410 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

42
lib/WebGUI/Definition/Asset.pm Normal file
View file

@ -0,0 +1,42 @@
package WebGUI::Definition::Asset;
=head1 LEGAL
-------------------------------------------------------------------
WebGUI is Copyright 2001-2009 Plain Black Corporation.
-------------------------------------------------------------------
Please read the legal notices (docs/legal.txt) and the license
(docs/license.txt) that came with this distribution before using
this software.
-------------------------------------------------------------------
http://www.plainblack.com info@plainblack.com
-------------------------------------------------------------------
=cut
use strict;
use warnings;
use 5.010;
use base qw(WebGUI::Definition);
our $VERSION = '0.0.1';
sub import {
my $class = shift;
if (! @_) {
return;
}
my $definition = (@_ == 1 && ref $_[0]) ? $_[0] : { @_ };
if ( my $properties = $definition->{properties} ) {
my $table = $definition->{table_name};
for ( my $i = 1; $i < @{ $properties }; $i += 2) {
$propeties->[$i]{table_name} = $table;
}
}
my $next = $class->next::can;
@_ = ($class, $definition);
goto $next;
}
1;