9 |
use Frey::Run; |
use Frey::Run; |
10 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
11 |
|
|
12 |
|
has 'usage_sort' => ( |
13 |
|
is => 'rw', |
14 |
|
isa => 'Bool', |
15 |
|
default => 0, |
16 |
|
documentation => 'Sort by class usage', |
17 |
|
); |
18 |
|
|
19 |
has 'usage_on_top' => ( |
has 'usage_on_top' => ( |
20 |
is => 'rw', |
is => 'rw', |
21 |
isa => 'Bool', |
isa => 'Bool', |
100 |
$html; |
$html; |
101 |
} |
} |
102 |
sort { |
sort { |
103 |
if ( $usage->{$a} || $usage->{$b} ) { |
if ( $self->usage_sort && ( $usage->{$a} || $usage->{$b} ) ) { |
104 |
$self->usage_on_top ? $usage->{$b} <=> $usage->{$a} : $usage->{$a} <=> $usage->{$b}; |
$self->usage_on_top ? $usage->{$b} <=> $usage->{$a} : $usage->{$a} <=> $usage->{$b}; |
105 |
} else { |
} else { |
106 |
$self->usage_on_top ? $a cmp $b : $b cmp $a; |
$self->usage_on_top ? $a cmp $b : $b cmp $a; |