Option Handling
# App::TimeTracker::Proto
sub run {
my $self = shift;
# stuff you've already seen
my %commands;
foreach my $method ($class->get_all_method_names) {
next unless $method =~ /^cmd_/;
$method =~ s/^cmd_//;
$commands{$method}=1;
}
my $load_attribs_for_command;
foreach (@ARGV) {
if ($commands{$_}) {
$load_attribs_for_command='_load_attribs_'.$_;
last;
}
}
if ($load_attribs_for_command && $class->has_method($load_attribs_for_command)) {
$class->name->$load_attribs_for_command($class);
}
}