86 |
|
|
87 |
my $f; |
my $f; |
88 |
|
|
|
my $run_regexp = join('|', Frey::Run->runnable ); |
|
89 |
my $editor = Frey::Editor->new; |
my $editor = Frey::Editor->new; |
90 |
|
|
91 |
# shared run params |
# shared run params |
108 |
system( $editor->command( $path ) ); |
system( $editor->command( $path ) ); |
109 |
return; |
return; |
110 |
} elsif ( |
} elsif ( |
111 |
$path =~ m{/([^/]+)/($run_regexp)/?([^/]+)?} |
$path =~ m{/([^/]+)/(as_\w+)/?([^/]+)?} |
112 |
) { |
) { |
113 |
my $class = rest2class $1; |
my $class = rest2class $1; |
114 |
warn "# run $path -> $class $2"; |
warn "# run $path -> $class $2"; |