Introspection
package App::TimeTracker::Command::RT;
use Moose::Role;
use RT::Client::REST;
use Unicode::Normalize;
has 'rt' => (is=>'rw',isa=>'TT::RT',coerce=>1,documentation=>'RT: Ticket number', predicate => 'has_rt');
before ['cmd_start','cmd_continue'] => sub {
my $self = shift;
# some other cool RT stuff
if ($self->meta->does_role('App::TimeTracker::Command::Git')) {
my $branch = $ticketname;
if ( $ticket ) {
my $subject = $ticket->subject;
$subject = NFKD($subject);
# more $subject cleanup
$branch .= '_'.$subject;
}
$self->branch($branch) unless $self->branch;
}
};