/usr/share/perl5/Dancer/Deprecation.pm is in libdancer-perl 1.3095+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 | package Dancer::Deprecation;
use strict;
use warnings;
use Carp;
use Dancer::Exception qw(:all);
sub deprecated {
my ($class, %args) = @_;
my ( $package, undef, undef, $sub ) = caller(1);
unless ( defined $args{feature} ) {
$args{feature} = $sub;
}
my $deprecated_at = defined $args{version} ? $args{version} : undef;
my $msg;
if ( defined $args{message} ) {
$msg = $args{message};
}
else {
$msg = "$args{feature} has been deprecated";
}
$msg .= " since version $deprecated_at" if defined $deprecated_at;
$msg .= ". " . $args{reason} if defined $args{reason};
raise core_deprecation => $msg if $args{fatal};
carp($msg);
}
1;
=head1 NAME
Dancer::Deprecation - handle deprecation messages
=head1 SYNOPSIS
Dancer::Deprecation->deprecated(
feature => 'sub_name',
version => '1.3000',
reason => '...',
);
=head1 DESCRIPTION
=head2 METHODS
=head3 deprecated
List of possible parameters:
=over 4
=item B<feature> name of the feature to deprecate
=item B<version> from which version the feature is deprecated
=item B<message> message to display
=item B<fatal> if set to true, raises a Dancer::Exception (Core::Deprecation) instead of carp
=item B<reason> why is the feature deprecated
=back
You can call the method with no arguments, and a default message using information from C<caller> will be built for you.
=head1 LICENSE
This module is free software and is distributed under the same terms as Perl
itself.
=head1 AUTHOR
This module has been written by Alexis Sukrieh <sukria@sukria.net>
=head1 SEE ALSO
L<Package::DeprecationManager>
=cut
|