$classmeta->{related_accessors} ||= [ $class->related($r) ];
$classmeta->{moniker} ||= $class->moniker;
$classmeta->{plural} ||= $class->plural_moniker;
$classmeta->{related_accessors} ||= [ $class->related($r) ];
$classmeta->{moniker} ||= $class->moniker;
$classmeta->{plural} ||= $class->plural_moniker;
$classmeta->{stringify_column} ||= $class->stringify_column;
# User-friendliness facility for custom template writers.
$classmeta->{stringify_column} ||= $class->stringify_column;
# User-friendliness facility for custom template writers.
sub error {
my ( $self, $r, $desc ) = @_;
$desc = $desc ? "$desc: " : "";
sub error {
my ( $self, $r, $desc ) = @_;
$desc = $desc ? "$desc: " : "";
# This is a rough test to see whether or not we're a template or
# a static page
return -1 unless @{ $r->{objects} || [] };
# This is a rough test to see whether or not we're a template or
# a static page
return -1 unless @{ $r->{objects} || [] };