/usr/share/perl5/Dancer/SharedData.pm is in libdancer-perl 1.3202+dfsg-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 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 | package Dancer::SharedData;
our $AUTHORITY = 'cpan:SUKRIA';
# ABSTRACT: Shared-data singleton for Dancer
$Dancer::SharedData::VERSION = '1.3202';
use strict;
use warnings;
use Dancer::Timer;
use Dancer::Response;
use Dancer::Factory::Hook;
Dancer::Factory::Hook->instance->install_hooks(
qw/on_reset_state/
);
# shared variables
my $vars = {};
sub vars {$vars}
sub var {
my ($class, $key, $value) = @_;
$vars->{$key} = $value if (@_ == 3);
return $vars->{$key};
}
# request headers
my $_headers;
sub headers { (@_ == 2) ? $_headers = $_[1] : $_headers }
# request singleton
my $_request;
sub request { (@_ == 2) ? $_request = $_[1] : $_request }
# current response
my $_response;
sub response {
if (@_ == 2) {
$_response = $_[1];
}else{
$_response = Dancer::Response->new() if !defined $_response;
return $_response;
}
}
sub reset_response { $_response = undef }
# request timer
my $_timer;
sub timer { $_timer ||= Dancer::Timer->new }
sub reset_timer { $_timer = Dancer::Timer->new }
# purging accessor
sub reset_all {
my ($self, %options) = @_;
my $is_forward = exists($options{reset_vars}) && ! $options{reset_vars};
Dancer::Factory::Hook->execute_hooks('on_reset_state', $is_forward);
if (!$is_forward) {
$vars = {};
}
undef $_request;
undef $_headers;
reset_timer();
reset_response();
}
'Dancer::SharedData';
__END__
=pod
=encoding UTF-8
=head1 NAME
Dancer::SharedData - Shared-data singleton for Dancer
=head1 VERSION
version 1.3202
=head1 AUTHOR
Dancer Core Developers
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2010 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
|