/usr/share/doc/libdist-zilla-perl/examples/lib/Dist/Zilla/App/Command/input.pm is in libdist-zilla-perl 5.043-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | use strict;
use warnings;
package Dist::Zilla::App::Command::input;
# ABSTRACT: demonstrate how input chrome works
use Dist::Zilla::App -command;
sub abstract { 'demonstrate chrome input methods' }
sub opt_spec {
}
sub execute {
my ($self, $opt, $arg) = @_;
my $zilla = $self->zilla;
$zilla->log("beginning input tests");
for my $default (undef, 'y', 'n') {
my $yn = $zilla->chrome->prompt_yn(
"yes or no?",
defined($default) ? { default => $default } : ()
);
$zilla->log([ "yes or no: %s", $yn ]);
}
$zilla->chrome->prompt_any_key;
$zilla->chrome->prompt_any_key("smack one");
}
1;
|