package Podius::Component::Page; use base 'Podius::Component::Publishable'; use Podius::Property::Scalar; use Podius::Property::BigScalar; sub get_own_property_types ($) { return [ [ title => 'Scalar' ], [ phrase => 'Scalar' ], [ keywords => 'BigScalar' ], [ description => 'BigScalar' ], ]; } sub get_name ($) { my $self = shift; return $self->phrase || $self->name || $self->title; } 1;