@@ -1,24 +1,8 @@ #!perl6 use v6; -BEGIN { @*INC.push('lib'); } +BEGIN { @*INC.unshift('lib'); } use Installer; -my Installer $proto .= new; - -given @*ARGS.shift { - when undef { exit; } - when 'install' { $proto.install( @*ARGS) } - when 'update' { $proto.update( @*ARGS) } - when 'uninstall' { $proto.uninstall(@*ARGS) } - when 'test' { $proto.test( @*ARGS) } - when 'showdeps' { $proto.showdeps( @*ARGS) } - default { - .say for - "Unrecognized subcommand '$_'. A typical command is:", - "'./proto install <projectname>', also update, test, showdeps," - ~ " uninstall.", - "See the README for more details" - } -} +Installer.new.subcommand-dispatch(@*ARGS.shift).(@*ARGS); # vim: ft=perl6 installer @@ -9,6 +9,23 @@ class Installer { ) } + method subcommand-dispatch($_) { + when undef { exit; } + when 'install' { -> *@projects { self.install( @projects) } } + when 'update' { -> *@projects { self.update( @projects) } } + when 'uninstall' { -> *@projects { self.uninstall(@projects) } } + when 'test' { -> *@projects { self.test( @projects) } } + when 'showdeps' { -> *@projects { self.showdeps( @projects) } } + default { + .say for + "Unrecognized subcommand '$_'. A typical command is:", + "'./proto install <projectname>', also update, test, showdeps," + ~ " uninstall.", + "See the README for more details"; + exit; + } + } + method install(*@projects) { my @projects-to-install; my $missing-projects = False; lib/Installer.pm f7f29d46c098df0b3d14c71da8ca00c2c7c77b30 Carl Masak cmasak@gmail.com http://github.com/masak/proto/commit/651cba188e9c9e763f5e02d0fced293ff3d4b743 651cba188e9c9e763f5e02d0fced293ff3d4b743 2009-05-11T09:12:47-07:00 2009-05-11T09:12:47-07:00 moved dispatching code into Installer.pm The more that's precompiled, the better. :) 7d7bd49a2cbe52a97b53bbc209f622649cb9a0b2 Carl Masak cmasak@gmail.com