From: Elizabeth Mattijsen Date: Thu, 18 Dec 2003 22:30:52 +0000 (+0100) Subject: [DOCPATCH] base.pm X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=45e8908fe5b88f920ab544783f3013f36f56fd48;p=p5sagit%2Fp5-mst-13.2.git [DOCPATCH] base.pm Message-Id: Plus, remove leftover mentions of pseudo-hashes p4raw-id: //depot/perl@21927 --- diff --git a/lib/base.pm b/lib/base.pm index 3177488..04a8aa9 100644 --- a/lib/base.pm +++ b/lib/base.pm @@ -2,7 +2,7 @@ package base; use strict 'vars'; use vars qw($VERSION); -$VERSION = '2.03'; +$VERSION = '2.04'; # constant.pm is slow sub SUCCESS () { 1 } @@ -113,7 +113,7 @@ sub inherit_fields { if( keys %$dfields ) { warn "$derived is inheriting from $base but already has its own ". "fields!\n". - "This will cause problems with pseudo-hashes.\n". + "This will cause problems.\n". "Be sure you use base BEFORE declaring fields\n"; } @@ -151,7 +151,7 @@ __END__ =head1 NAME -base - Establish IS-A relationship with base class at compile time +base - Establish IS-A relationship with base classes at compile time =head1 SYNOPSIS @@ -160,31 +160,29 @@ base - Establish IS-A relationship with base class at compile time =head1 DESCRIPTION -Roughly similar in effect to +Allows you to both load one or more modules, while setting up inheritance from +those modules at the same time. Roughly similar in effect to + package Baz; BEGIN { require Foo; require Bar; push @ISA, qw(Foo Bar); } +If any of the listed modules are not loaded yet, I silently attempts to +C them (and silently continues if the C failed). Whether to +C a base class module is determined by the absence of a global variable +$VERSION in the base package. If $VERSION is not detected even after loading +it, will define $VERSION in the base package, setting it to the string +C<-1, set by base.pm>. + Will also initialize the fields if one of the base classes has it. -Multiple Inheritence of fields is B supported, if two or more +Multiple inheritence of fields is B supported, if two or more base classes each have inheritable fields the 'base' pragma will croak. See L, L and L for a description of this feature. -When strict 'vars' is in scope, I also lets you assign to @ISA -without having to declare @ISA with the 'vars' pragma first. - -If any of the base classes are not loaded yet, I silently -Cs them (but it won't call the C method). Whether to -C a base class package is determined by the absence of a global -$VERSION in the base package. If $VERSION is not detected even after -loading it, I will define $VERSION in the base package, setting it to -the string C<-1, set by base.pm>. - - =head1 HISTORY This module was introduced with Perl 5.004_04. @@ -192,7 +190,7 @@ This module was introduced with Perl 5.004_04. =head1 CAVEATS -Due to the limitations of the pseudo-hash implementation, you must use +Due to the limitations of the implementation, you must use base I you declare any of your own fields.