| 1 | package UNIVERSAL;
|
|---|
| 2 |
|
|---|
| 3 | our $VERSION = '1.01';
|
|---|
| 4 |
|
|---|
| 5 | # UNIVERSAL should not contain any extra subs/methods beyond those
|
|---|
| 6 | # that it exists to define. The use of Exporter below is a historical
|
|---|
| 7 | # accident that can't be fixed without breaking code. Note that we
|
|---|
| 8 | # *don't* set @ISA here, don't want all classes/objects inheriting from
|
|---|
| 9 | # Exporter. It's bad enough that all classes have a import() method
|
|---|
| 10 | # whenever UNIVERSAL.pm is loaded.
|
|---|
| 11 | require Exporter;
|
|---|
| 12 | *import = \&Exporter::import;
|
|---|
| 13 | @EXPORT_OK = qw(isa can VERSION);
|
|---|
| 14 |
|
|---|
| 15 | 1;
|
|---|
| 16 | __END__
|
|---|
| 17 |
|
|---|
| 18 | =head1 NAME
|
|---|
| 19 |
|
|---|
| 20 | UNIVERSAL - base class for ALL classes (blessed references)
|
|---|
| 21 |
|
|---|
| 22 | =head1 SYNOPSIS
|
|---|
| 23 |
|
|---|
|
|---|
