/usr/lib/perl5/Ogre/Vector2.pm is in libogre-perl 0.60-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 | package Ogre::Vector2;
use strict;
use warnings;
# xxx: this should be in XS, but I can't get it to work
use overload
'==' => \&vec2_eq_xs,
'!=' => \&vec2_ne_xs,
'<' => \&vec2_lt_xs,
'>' => \&vec2_gt_xs,
'+' => \&vec2_plus_xs,
'-' => \&vec2_minus_xs,
'*' => \&vec2_mult_xs,
'/' => \&vec2_div_xs,
'0+' => sub { $_[0] },
'neg' => \&vec2_neg_xs,
;
1;
__END__
|