view release on metacpan or  search on metacpan

lib/BingoX/Argon.pm  view on Meta::CPAN

	my $self	= shift;
	my $class	= ref($self) || $self;
	no strict 'refs';
	(defined %{"${class}::display_classes"}) ? \%{"${class}::display_classes"} : { };
} # END of display_classes


=item C<data_class> (  )

Static method returns data class defined for application subclass.  
If none is assigned, guess. :-)

=cut
sub data_class {
	my $self	= shift;
	my $class	= ref($self) || $self;
	no strict 'refs';
	${"${class}::data_class"} || $class . '::Data';
} # END of data_class

lib/BingoX/Cobalt.pm  view on Meta::CPAN

 Combined with a more complete Display class (from Gonzo). This should be moved
 into the bingo project, and kept as one distinct thing...

 Revision 1.2  1999/10/20 23:41:53  greg
 Added method r to return the Apache request object.

 Revision 1.1  1999/10/12 00:02:07  thai
  - initial commit
  - partially functional, just does nothing

    I guess you could say its a "GNDN"


=head1 SEE ALSO

perl(1).

=head1 KNOWN BUGS

None