… | |
… | |
224 | "eval|e=s" => sub { trace_eval $_[1] }, |
224 | "eval|e=s" => sub { trace_eval $_[1] }, |
225 | "use|M=s" => sub { trace_module $_[1] }, |
225 | "use|M=s" => sub { trace_module $_[1] }, |
226 | "boot=s" => sub { cmd_boot $_[1] }, |
226 | "boot=s" => sub { cmd_boot $_[1] }, |
227 | "add=s" => sub { cmd_add $_[1] }, |
227 | "add=s" => sub { cmd_add $_[1] }, |
228 | "static" => sub { $STATIC = 1 }, |
228 | "static" => sub { $STATIC = 1 }, |
229 | "<>" => sub { cmd_file $_[1] }, |
229 | "<>" => sub { cmd_file $_[0] }, |
230 | or exit 1; |
230 | or exit 1; |
231 | |
231 | |
232 | my $data; |
232 | my $data; |
233 | my @index; |
233 | my @index; |
234 | my @order = sort { |
234 | my @order = sort { |