package App::vaporcalc::Cmd::Subject::Help; $App::vaporcalc::Cmd::Subject::Help::VERSION = '0.005004'; use Defaults::Modern; use Moo; method _subject { 'help' } method _build_verb { 'show' } with 'App::vaporcalc::Role::UI::Cmd'; has '+recipe' => ( isa => Any, ); method _action_view { $self->_action_show } method _action_show { my $topic = $self->params->get(0); my $str; unless ($topic) { $str = join "\n", "Commands can be entered as:", " [ ] or [ ]", " e.g.: set nic base 100", "(Without a verb, most subjects will call 'view')", " recipe ", " target amount ", " flavor ", " nic base ", " nic target ", " nic type ", " pg ", " vg ", " notes " } $self->create_result( string => ($str || "No help found for '$topic'") ) } 1; =for Pod::Coverage .* =cut