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
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
|
package Dancer2;
$Dancer2::VERSION = '1.1.0';
# ABSTRACT: Lightweight yet powerful web application framework
use 5.12.0;
use strict;
use warnings;
use List::Util 'first';
use Module::Runtime 'use_module';
use Import::Into;
use Dancer2::Core;
use Dancer2::Core::App;
use Dancer2::Core::Runner;
use Dancer2::FileUtils;
our $AUTHORITY = 'SUKRIA';
sub VERSION { shift->SUPER::VERSION(@_) || '0.000000_000' }
our $runner;
sub runner {$runner}
sub psgi_app { shift->runner->psgi_app(@_) }
sub import {
my ($class, @args) = @_;
my ($caller, $script) = caller;
my @final_args;
my $clean_import;
foreach my $arg (@args) {
# ignore, no longer necessary
# in the future these will warn as deprecated
grep +($arg eq $_), qw<:script :syntax :tests>
and next;
if ($arg eq ':nopragmas') {
$clean_import++;
next;
}
if (substr($arg, 0, 1) eq '!') {
push @final_args, $arg, 1;
}
else {
push @final_args, $arg;
}
}
$clean_import
or $_->import::into($caller)
for qw<strict warnings utf8>;
scalar @final_args % 2
and die q{parameters must be key/value pairs or '!keyword'};
my %final_args = @final_args;
my $appname = delete $final_args{appname};
$appname ||= $caller;
# never instantiated the runner, should do it now
if (not defined $runner) {
$runner = Dancer2::Core::Runner->new();
}
# Search through registered apps, creating a new app object
# if we do not find one with the same name.
my $app;
($app) = first { $_->name eq $appname } @{$runner->apps};
if (!$app) {
# populating with the server's postponed hooks in advance
$app = Dancer2::Core::App->new(
name => $appname,
caller => $script,
environment => $runner->environment,
postponed_hooks => $runner->postponed_hooks->{$appname} || {},
);
# register the app within the runner instance
$runner->register_application($app);
}
_set_import_method_to_caller($caller);
# use config dsl class, must extend Dancer2::Core::DSL
my $config_dsl = $app->setting('dsl_class') || 'Dancer2::Core::DSL';
$final_args{dsl} ||= $config_dsl;
# load the DSL, defaulting to Dancer2::Core::DSL
my $dsl = use_module($final_args{dsl})->new(app => $app);
$dsl->export_symbols_to($caller, \%final_args);
}
sub _set_import_method_to_caller {
my ($caller) = @_;
my $import = sub {
my ($self, %options) = @_;
my $with = $options{with};
for my $key (keys %$with) {
$self->dancer_app->setting($key => $with->{$key});
}
};
{
## no critic
no strict 'refs';
no warnings 'redefine';
*{"${caller}::import"} = $import;
}
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Dancer2 - Lightweight yet powerful web application framework
=head1 VERSION
version 1.1.0
=head1 DESCRIPTION
Dancer2 is the new generation of L<Dancer>, the lightweight web-framework for
Perl. Dancer2 is a complete rewrite based on L<Moo>.
Dancer2 can optionally use XS modules for speed, but at its core remains
fatpackable (packable by L<App::FatPacker>) so you could easily deploy Dancer2
applications on hosts that do not support custom CPAN modules.
Dancer2 is easy and fun:
use Dancer2;
get '/' => sub { "Hello World" };
dance;
This is the main module for the Dancer2 distribution. It contains logic for
creating a new Dancer2 application.
=head2 Documentation Index
Documentation on Dancer2 is split into several sections. Below is a
complete outline on where to go for help.
=over 4
=item * Dancer2 Tutorial
If you are new to the Dancer approach, you should start by reading
our L<Dancer2::Tutorial>.
=item * Dancer2 Manual
L<Dancer2::Manual> is the reference for Dancer2. Here you will find
information on the concepts of Dancer2 application development and
a comprehensive reference to the Dancer2 domain specific
language.
=item * Dancer2 Keywords
The keywords for Dancer2 can be found under L<DSL Keywords|Dancer2::Manual/DSL KEYWORDS>.
=item * Dancer2 Deployment
For configuration examples of different deployment solutions involving
Dancer2 and Plack, refer to L<Dancer2::Manual::Deployment>.
=item * Dancer2 Cookbook
Specific examples of code for real-life problems and some 'tricks' for
applications in Dancer can be found in L<Dancer2::Cookbook>
=item * Dancer2 Config
For configuration file details refer to L<Dancer2::Config>. It is a
complete list of all configuration options.
=item * Dancer2 Plugins
Refer to L<Dancer2::Plugins> for a partial list of available Dancer2
plugins. Note that although we try to keep this list up to date we
expect plugin authors to tell us about new modules.
For information on how to author a plugin, see L<Dancer2::Plugin/Writing the plugin>.
=item * Dancer2 Migration guide
L<Dancer2::Manual::Migration> provides the most up-to-date instruction on
how to convert a Dancer (1) based application to Dancer2.
=back
=head3 Other Documentation
=over
=item * Core and Community Policy, and Standards of Conduct
The L<Dancer core and community policy, and standards of conduct|Dancer2::Policy> defines
what constitutes acceptable behavior in our community, what behavior is considered
abusive and unacceptable, and what steps will be taken to remediate inappropriate
and abusive behavior. By participating in any public forum for Dancer or its
community, you are agreeing to the terms of this policy.
=item * GitHub Wiki
Our L<GitHub wiki|https://github.com/PerlDancer/Dancer2/wiki> has community-contributed
documentation, as well as other information that doesn't quite fit within
this manual.
=item * Contributing
The L<contribution guidelines|https://github.com/PerlDancer/Dancer2/blob/master/Contributing.md> describe
how to set up your development environment to contribute to the development of Dancer2,
Dancer2's Git workflow, submission guidelines, and various coding standards.
=item * Deprecation Policy
The L<deprecation policy|Dancer2::DeprecationPolicy> defines the process for removing old,
broken, unused, or outdated code from the Dancer2 codebase. This policy is critical
for guiding and shaping future development of Dancer2.
=back
=head1 SECURITY REPORTS
If you need to report a security vulnerability in Dancer2, send all pertinent
information to L<dancer-security@dancer.pm|mailto:dancer-security@dancer.pm>. These matters are taken
extremely seriously, and will be addressed in the earliest timeframe possible.
=head1 SUPPORT
You are welcome to join our mailing list.
For subscription information, mail address and archives see
L<http://lists.preshweb.co.uk/mailman/listinfo/dancer-users>.
We are also on IRC: #dancer on irc.perl.org.
=head1 AUTHORS
=head2 CORE DEVELOPERS
Alberto Simões
Alexis Sukrieh
D Ruth Holloway (GeekRuthie)
Damien Krotkine
David Precious
Franck Cuny
Jason A. Crome
Mickey Nasriachi
Peter Mottram (SysPete)
Russell Jenkins
Sawyer X
Stefan Hornburg (Racke)
Yanick Champoux
=head2 CORE DEVELOPERS EMERITUS
David Golden
Steven Humphrey
=head2 CONTRIBUTORS
A. Sinan Unur
Abdullah Diab
Achyut Kumar Panda
Ahmad M. Zawawi
Alex Beamish
Alexander Karelas
Alexander Pankoff
Alexandr Ciornii
Andrew Beverley
Andrew Grangaard
Andrew Inishev
Andrew Solomon
Andy Jack
Ashvini V
B10m
Bas Bloemsaat
baynes
Ben Hutton
Ben Kaufman
biafra
Blabos de Blebe
Breno G. de Oliveira
cdmalon
Celogeek
Cesare Gargano
Charlie Gonzalez
chenchen000
Chi Trinh
Christian Walde
Christopher White
cloveistaken
Colin Kuskie
cym0n
Dale Gallagher
Dan Book (Grinnz)
Daniel Böhmer
Daniel Muey
Daniel Perrett
Dave Jacoby
Dave Webb
David (sbts)
David Steinbrunner
David Zurborg
Davs
Deirdre Moran
Dennis Lichtenthäler
Dinis Rebolo
dtcyganov
Elliot Holden
Emil Perhinschi
Erik Smit
Fayland Lam
ferki
Gabor Szabo
GeekRuthie
geistteufel
Gideon D'souza
Gil Magno
Glenn Fowler
Graham Knop
Gregor Herrmann
Grzegorz Rożniecki
Hobbestigrou
Hunter McMillen
ice-lenor
Ivan Bessarabov
Ivan Kruglov
JaHIY
Jakob Voss
James Aitken
James Raspass
James McCoy
Jason Lewis
Javier Rojas
Jean Stebens
Jens Rehsack
Joel Berger
Johannes Piehler
Jonathan Cast
Jonathan Scott Duff
Joseph Frazer
Julien Fiegehenn (simbabque)
Julio Fraire
Kaitlyn Parkhurst (SYMKAT)
kbeyazli
Keith Broughton
lbeesley
Lennart Hengstmengel
Ludovic Tolhurst-Cleaver
Mario Zieschang
Mark A. Stratman
Marketa Wachtlova
Masaaki Saito
Mateu X Hunter
Matt Phillips
Matt S Trout
mauke
Maurice
MaxPerl
Ma_Sys.ma
Menno Blom
Michael Kröll
Michał Wojciechowski
Mike Katasonov
Mohammad S Anwar
mokko
Nick Patch
Nick Tonkin
Nigel Gregoire
Nikita K
Nuno Carvalho
Olaf Alders
Olivier Mengué
Omar M. Othman
pants
Patrick Zimmermann
Pau Amma
Paul Clements
Paul Cochrane
Paul Williams
Pedro Bruno
Pedro Melo
Philippe Bricout
Ricardo Signes
Rick Yakubowski
Ruben Amortegui
Sakshee Vijay (sakshee3)
Sam Kington
Samit Badle
Sebastien Deseille (sdeseille)
Sergiy Borodych
Shlomi Fish
Slava Goltser
Snigdha
Steve Bertrand
Steve Dondley
Steven Humphrey
Tatsuhiko Miyagawa
Timothy Alexis Vass
Tina Müller
Tom Hukins
Upasana Shukla
Utkarsh Gupta
Vernon Lyon
Victor Adam
Vince Willems
Vincent Bachelier
xenu
Yves Orton
=head1 AUTHOR
Dancer Core Developers
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2023 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
|