Frey/Class/Browser.pm

package Frey::ClassBrowser;
use Moose;

extends 'Frey::ClassLoader';
with 'Frey::Web';
with 'Frey::Session';
with 'Frey::Web::CombineImages';

use Frey::Run;
use Data::Dump qw/dump/;

has 'usage_on_top' => (
        is => 'rw',
        isa => 'Bool',
        default => 1,
        documentation => 'Show usage on top of list',
);

sub as_markup {
        my $self = shift;
        my $row;
        my @icons;

        my $usage = $self->session_dump( $self->usage );
        #warn "# usage ",dump( $usage );
        foreach my $class ( $self->classes ) {

                my $icon = '';
                if ( ! $self->can('icon_path') ) {
                        $self->TODO( "re-apply Frey::Web on $self" );
                        Frey::Web->meta->apply( $self );
                }
                $icon = $self->icon_path( $class );
                if ($icon) {
                        push @icons, $icon;
                        $icon = qq|<!-- icon:$icon -->|;
                } else {
                        $icon = '';
                }

                my $html
                        = qq|<tr><td>$icon</td><td><a target="$class" href="/$class" title="|
                        . $self->class_path( $class )
                        . qq|">$class</a></td><td>|
                        ;
                if ( $class->can('meta') ) {
                        if ( $class->meta->isa('Moose::Meta::Role') ) {
                                $html .= qq|role|;
                        } else {
                                $html .= qq|<a target="$class" href="/Frey-ObjectDesigner?class=$class">design</a>| if $class->can('collection');
                        }
                }

                my @run = map {
                        s{^as_}{};
                        qq|<a target="$class" href="/$class/as_$_" title="$class->as_$_">$_</a>|;
                } $self->class_runnable( $class );
                push @run, qq|<a target="$class" href="/Frey-ObjectBrowser?class=$class">collection</a>| if $class->can('collection_table');

                my @inputs = $self->class_inputs( $class );

                $usage->{$class} ||= 0;
                $html
                        .= qq|</td><td>|
                        . join(' ', @run)
                        . qq|</td><td>|
                        . ( @inputs ? '&larr; ' . join(' ', @inputs) : '' )
                        . qq|</td><td>|
                        . ( $usage->{$class} || '' )
                        . qq|</td></tr>|
                        ;
                $row->{$class} = $html;
        }

        my $icons_html = $self->combine_images( @icons );
        sub icon {
                my ($icons_html,$path) = @_;
                warn "# icon $path";
                $icons_html->{ $path } || die "can't find $path in ",dump($icons_html);
        };

        return 
                qq|<table>| . join("\n",
                        map {
                                my $html = $row->{$_};
                                $html =~ s{<!-- icon:(\S+) -->}{icon($icons_html,$1)}gse;
                                $html;
                        }
                        sort {
                                if ( $usage->{$a} || $usage->{$b} ) {
                                        $self->usage_on_top ? $usage->{$b} <=> $usage->{$a} : $usage->{$a} <=> $usage->{$b};
                                } else {
                                        $self->usage_on_top ? $a cmp $b : $b cmp $a;
                                }
                        }
                        keys %$row
                ) . qq|</table>|;
}

1;
1	dpavlin	119	package Frey::ClassBrowser;
2			use Moose;
3
4	dpavlin	308	extends 'Frey::ClassLoader';
5	dpavlin	418	with 'Frey::Web';
6	dpavlin	434	with 'Frey::Session';
7	dpavlin	555	with 'Frey::Web::CombineImages';
8	dpavlin	119
9	dpavlin	223	use Frey::Run;
10	dpavlin	434	use Data::Dump qw/dump/;
11	dpavlin	119
12	dpavlin	434	has 'usage_on_top' => (
13			is => 'rw',
14			isa => 'Bool',
15			default => 1,
16			documentation => 'Show usage on top of list',
17			);
18
19	dpavlin	455	sub as_markup {
20	dpavlin	308	my $self = shift;
21	dpavlin	434	my $row;
22	dpavlin	555	my @icons;
23	dpavlin	434
24			my $usage = $self->session_dump( $self->usage );
25			#warn "# usage ",dump( $usage );
26	dpavlin	308	foreach my $class ( $self->classes ) {
27	dpavlin	531
28			my $icon = '';
29	dpavlin	550	if ( ! $self->can('icon_path') ) {
30	dpavlin	570	$self->TODO( "re-apply Frey::Web on $self" );
31	dpavlin	550	Frey::Web->meta->apply( $self );
32	dpavlin	531	}
33	dpavlin	550	$icon = $self->icon_path( $class );
34	dpavlin	555	if ($icon) {
35			push @icons, $icon;
36			$icon = qq\|<!-- icon:$icon -->\|;
37	dpavlin	570	} else {
38			$icon = '';
39	dpavlin	555	}
40	dpavlin	531
41	dpavlin	427	my $html
42	dpavlin	531	= qq\|<tr><td>$icon</td><td><a target="$class" href="/$class" title="\|
43	dpavlin	427	. $self->class_path( $class )
44			. qq\|">$class</a></td><td>\|
45			;
46	dpavlin	308	if ( $class->can('meta') ) {
47			if ( $class->meta->isa('Moose::Meta::Role') ) {
48	dpavlin	144	$html .= qq\|role\|;
49			} else {
50	dpavlin	531	$html .= qq\|<a target="$class" href="/Frey-ObjectDesigner?class=$class">design</a>\| if $class->can('collection');
51	dpavlin	144	}
52			}
53	dpavlin	459
54			my @run = map {
55			s{^as_}{};
56	dpavlin	531	qq\|<a target="$class" href="/$class/as_$_" title="$class->as_$_">$_</a>\|;
57	dpavlin	459	} $self->class_runnable( $class );
58	dpavlin	531	push @run, qq\|<a target="$class" href="/Frey-ObjectBrowser?class=$class">collection</a>\| if $class->can('collection_table');
59	dpavlin	455
60	dpavlin	459	my @inputs = $self->class_inputs( $class );
61
62	dpavlin	434	$usage->{$class} \|\|= 0;
63	dpavlin	427	$html
64			.= qq\|</td><td>\|
65			. join(' ', @run)
66			. qq\|</td><td>\|
67	dpavlin	459	. ( @inputs ? '← ' . join(' ', @inputs) : '' )
68	dpavlin	434	. qq\|</td><td>\|
69			. ( $usage->{$class} \|\| '' )
70	dpavlin	427	. qq\|</td></tr>\|
71			;
72	dpavlin	434	$row->{$class} = $html;
73	dpavlin	144	}
74	dpavlin	434
75	dpavlin	555	my $icons_html = $self->combine_images( @icons );
76			sub icon {
77	dpavlin	570	my ($icons_html,$path) = @_;
78	dpavlin	555	warn "# icon $path";
79			$icons_html->{ $path } \|\| die "can't find $path in ",dump($icons_html);
80			};
81
82	dpavlin	434	return
83			qq\|<table>\| . join("\n",
84	dpavlin	555	map {
85			my $html = $row->{$_};
86	dpavlin	570	$html =~ s{<!-- icon:(\S+) -->}{icon($icons_html,$1)}gse;
87	dpavlin	555	$html;
88			}
89	dpavlin	434	sort {
90			if ( $usage->{$a} \|\| $usage->{$b} ) {
91	dpavlin	545	$self->usage_on_top ? $usage->{$b} <=> $usage->{$a} : $usage->{$a} <=> $usage->{$b};
92	dpavlin	434	} else {
93	dpavlin	545	$self->usage_on_top ? $a cmp $b : $b cmp $a;
94	dpavlin	434	}
95			}
96			keys %$row
97			) . qq\|</table>\|;
98	dpavlin	119	}
99
100			1;