10 |
|
|
11 |
use lib 'lib'; |
use lib 'lib'; |
12 |
|
|
13 |
extends 'Frey'; |
extends 'Frey::ClassLoader'; |
14 |
with 'Frey::Web'; |
with 'Frey::Web'; |
15 |
|
|
16 |
has 'class' => ( |
has 'class' => ( |
32 |
sub joose { |
sub joose { |
33 |
my ($self) = @_; |
my ($self) = @_; |
34 |
|
|
35 |
my ( $meta, $is_role ) = $self->load_class; |
my ( $meta, $is_role ) = $self->class_meta; |
36 |
|
|
37 |
if ( ! $is_role ) { |
if ( ! $is_role ) { |
38 |
my @superclasses = map{ $_->meta->name } |
my @superclasses = map{ $_->meta->name } |
109 |
sub methods { |
sub methods { |
110 |
my $self = shift; |
my $self = shift; |
111 |
|
|
112 |
my ( $meta, $is_role ) = $self->load_class; |
my ( $meta, $is_role ) = $self->class_meta; |
113 |
|
|
114 |
my $attr; |
my $attr; |
115 |
$attr->{$_}++ foreach $meta->get_attribute_list; |
$attr->{$_}++ foreach $meta->get_attribute_list; |
119 |
return sort @methods; |
return sort @methods; |
120 |
} |
} |
121 |
|
|
|
use Frey::ClassLoader; |
|
|
|
|
|
sub load_class { |
|
|
my $self = shift; |
|
|
return Frey::ClassLoader->load_package( $self->class ); |
|
|
} |
|
|
|
|
|
|
|
122 |
=head1 OUTPUT GENERATION |
=head1 OUTPUT GENERATION |
123 |
|
|
124 |
=head2 markup |
=head2 markup |
132 |
|
|
133 |
$self->add_head( 'static/introspect.css' ); |
$self->add_head( 'static/introspect.css' ); |
134 |
|
|
135 |
my ( $meta, $is_role ) = $self->load_class; |
my ( $meta, $is_role ) = $self->class_meta; |
136 |
|
|
137 |
my $class = $self->class; |
my $class = $self->class; |
138 |
|
|