/usr/local/CPAN/Devel-Profit/Devel/Profit/Cmd/Command/Profile.pm

• package Devel::Profit::Cmd::Command::Profile
  • usage_desc
  • abstract
  • run
• EOF

package Devel::Profit::Cmd::Command::Profile;
use strict;
use warnings;
use IO::File;
use Moose;
extends qw(Devel::Profit::Cmd::Command MooseX::App::Cmd::Command);

sub usage_desc {
    my $self = shift;
    return "devel_profit profile [filename of file to profile]";
}

sub abstract {
    my $self = shift;
    return 'Profile a file';
}

sub run {
    my ( $self, $opt, $args ) = @_;

    unshift @$args, '-MDevel::Profit';
    unshift @$args, $^X;
    system(@$args);
}

1;