/usr/bin/dancer2 is in libdancer2-perl 0.11+dfsg-1.
This file is owned by root:root, with mode 0o755.
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 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 | #!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
if 0; # not running under some shell
# PODNAME: dancer2
# ABSTRACT: Dancer2 command line interface
use strict;
use warnings;
use Dancer2::CLI;
# backward compatibility
if (@ARGV && ($ARGV[0] =~ m/^-(a|p|x)/ || $ARGV[0] =~ m/^--(application|path|no-check)/)) {
# GetOptions and Getopt::Long::Descriptive differently treats
# cases like '-a=Test'. GetOptions returs 'Test' as value of 'a',
# while Getopt::Long::Descriptive returns '=Test' as value
foreach (@ARGV) {
s/^\-(a|p)=/-$1/;
}
unshift @ARGV, 'gen';
}
exit Dancer2::CLI->run;
__END__
=pod
=head1 NAME
dancer2 - Dancer2 command line interface
=head1 VERSION
version 0.11
=head1 SYNOPSIS
dancer2 <command> [options...]
=head1 DESCRIPTION
Dancer2 is the new generation lightweight web-framework for Perl.
This tool provides nice, easily-extendable CLI interface for it.
=head1 NAME
dancer2 - Dancer2 command line interface
=head1 COMMANDS
=over
=item gen : create new Dancer2 application
=item commands : list the application's commands
=item help : display a command's help screen
=item version : display version
=back
To get detailed description of each individual command run:
dancer2 help <command>
The lastest list of available commands can be dispayed by:
dancer2 commands
=head1 COMMAND 'gen'
Helper script for providing a bootstrapping method to quickly and easily create
the framework for a new Dancer2 application.
=head3 OPTIONS
-a --application the name of your application
-p --path the path where to create your application
(current directory if not specified)
-o --overwrite overwrite existing files
-x --no-check don't check for the latest version of Dancer2
(checking version implies internet connection)
=head3 EXAMPLE
Here is an application created with dancer2:
$ dancer2 gen -a MyWeb::App
+ MyWeb-App
+ MyWeb-App/bin
+ MyWeb-App/bin/app.pl
+ MyWeb-App/config.yml
+ MyWeb-App/environments
+ MyWeb-App/environments/development.yml
+ MyWeb-App/environments/production.yml
+ MyWeb-App/views
+ MyWeb-App/views/index.tt
+ MyWeb-App/views/layouts
+ MyWeb-App/views/layouts/main.tt
+ MyWeb-App/MANIFEST.SKIP
+ MyWeb-App/lib
+ MyWeb-App/lib/MyWeb
+ MyWeb-App/lib/MyWeb/App.pm
+ MyWeb-App/public
+ MyWeb-App/public/css
+ MyWeb-App/public/css/style.css
+ MyWeb-App/public/css/error.css
+ MyWeb-App/public/images
+ MyWeb-App/public/500.html
+ MyWeb-App/public/404.html
+ MyWeb-App/public/dispatch.fcgi
+ MyWeb-App/public/dispatch.cgi
+ MyWeb-App/public/javascripts
+ MyWeb-App/public/javascripts/jquery.js
+ MyWeb-App/t
+ MyWeb-App/t/002_index_route.t
+ MyWeb-App/t/001_base.t
+ MyWeb-App/Makefile.PL
The application is ready to serve:
$ cd MyWeb-App
$ ./bin/app.pl
>> Listening on 127.0.0.1:3000
== Entering the development dance floor ...
=head1 AUTHOR
This script has been written by Ivan Kruglov
<ivan.kruglov@yahoo.com> base on original dancer2
script which has been written by Sebastien Deseille
<sebastien.deseille@gmail.com> and Alexis Sukrieh
<sukria@cpan.org>.
=head1 SOURCE CODE
See L<Dancer2> for more information.
=head1 LICENSE
This module is free software and is published under the same
terms as Perl itself.
=head1 AUTHOR
Dancer Core Developers
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2013 by Alexis Sukrieh.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|