/usr/share/perl5/Mason/Plugin/DollarDot.pm is in libmason-perl 2.19-2.
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 | package Mason::Plugin::DollarDot;
BEGIN {
$Mason::Plugin::DollarDot::VERSION = '2.19';
}
use Moose;
with 'Mason::Plugin';
1;
=pod
=head1 NAME
Mason::Plugin::DollarDot - Allow $. as substitution for $self-> and in
attribute names
=head1 SYNOPSIS
<%class>
has 'name';
has 'date';
</%class>
<%method greet>
Hello, <% $.name %>. Today is <% $.date %>.
</%method>
...
% $.greet();
<%init>
# Set the date
$.date(scalar(localtime));
# or, if combined with LvalueAttributes
$.date = scalar(localtime);
</%init>
=head1 DESCRIPTION
This plugin substitutes C<< $.I<identifier> >> for C<< $self->I<identifier> >>
in all Perl code inside components, so that C<< $. >> can be used when
referring to attributes and calling methods. The actual regex is
s/ \$\.([^\W\d]\w*) / \$self->$1 /gx;
=head1 RATIONALE
In Mason 2, components have to write C<< $self-> >> a lot to refer to
attributes that were simple scalars in Mason 1. This eases the transition pain.
C<< $. >> was chosen because of its similar use in Perl 6.
This plugin falls under the heading of gratuitous source filtering, which the
author generally agrees is Evil. That said, this is a very limited filter, and
seems unlikely to break any legitimate Perl syntax other than use of the C<< $.
>> special variable (input line number).
=head1 BUGS
Will not interpolate as expected inside double quotes:
"My name is $.name" # nope
instead you have to do
"My name is " . $.name
=head1 SEE ALSO
L<Mason|Mason>
=head1 AUTHOR
Jonathan Swartz <swartz@pobox.com>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2011 by Jonathan Swartz.
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
__END__
|