File: Misleading.pm

package info (click to toggle)
libv-perl 0.22-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 192 kB
  • sloc: perl: 556; makefile: 2
file content (12 lines) | stat: -rw-r--r-- 220 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
 
package Misleading;
use vars qw< $VERSION >;

$VERSION = 0.42;
my ($major, $minor) = $VERSION =~ m/(\d+)(?:\.(\d+))?/;

my %opt = ();
%opt = (
    package => (exists($opt{package}) ? $opt{package} : (caller)[0]),
);

1;