view release on metacpan or  search on metacpan

t/embed/lib/MyObj.pm  view on Meta::CPAN

=cut

sub new
{
	my ($obj, %args) = @_ ;

	my $class = ref($obj) || $obj ;

	# Create object
	my $this = $class->SUPER::new(%args) ;
	
	
	return($this) ;
}



#============================================================================================
# CLASS METHODS 
#============================================================================================

t/embed/lib/MyObj.pm  view on Meta::CPAN

	if (! keys %args)
	{
		%args = () ;
	}
	
	# Add extra fields
	foreach (keys %FIELDS)
	{
		$args{'fields'}{$_} = $FIELDS{$_} ;
	}
	$class->SUPER::init_class(%args) ;

	# Create a class instance object - allows these methods to be called via class
	$class->class_instance(%args) ;

}


#-----------------------------------------------------------------------------

=item B<add_global_error($error)>

t/lib/ObjTest.pm  view on Meta::CPAN

) ;

#-----------------------------------------------------------------------------
sub new
{
	my ($obj, %args) = @_ ;

	my $class = ref($obj) || $obj ;

	# Create object
	my $this = $class->SUPER::new(%args) ;
	
	return($this) ;
}

#-----------------------------------------------------------------------------
sub init_class
{
	my $class = shift ;
	my (%args) = @_ ;

#	# Add extra fields
#	$class->add_fields(\%FIELDS, \%args) ;
#
#	# init class
#	$class->SUPER::init_class(%args) ;

	if (! keys %args)
	{
		%args = () ;
	}
	
	# Add extra fields
	foreach (keys %FIELDS)
	{
		$args{'fields'}{$_} = $FIELDS{$_} ;
	}
	$class->SUPER::init_class(%args) ;

	# Create a class instance object - allows these methods to be called via class
	$class->class_instance(%args) ;


}

1;

__END__