App-unbelievable

 view release on metacpan or  search on metacpan

lib/App/unbelievable/CLI.pm  view on Meta::CPAN

134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
require File::Temp;
 
# TODO get CPU count per
 
# List the routes
# TODO get all GET routes from app
my @routes;
 
# Get and filter the routes from /content.
push @routes, File::Find::Rule->readable->file->not_name('.*')->relative
                ->in(_here('content'));
if($opts->{route_style} eq 'htmlfile') {
    s{\.[^\.]+$}{.html} foreach @routes;
} elsif($opts->{route_style} eq 'dir') {
    s{\.[^\.]+$}{/} foreach @routes;
} else {
    die "Unknown route style $opts->{route_style}";
}
 
# public/ --- all files appear just as they are, sans leading /public



( run in 0.229 second using v1.01-cache-2.11-cpan-9b1e4054eb1 )