r71844 - in /branches/upstream/libobject-insideout-perl/current: ./ examples/ lib/Bundle/Object/ lib/Object/ lib/Object/InsideOut/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Tue Mar 22 02:54:52 UTC 2011
Author: jawnsy-guest
Date: Tue Mar 22 02:54:43 2011
New Revision: 71844
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=71844
Log:
[svn-upgrade] new version libobject-insideout-perl (3.81)
Modified:
branches/upstream/libobject-insideout-perl/current/Changes
branches/upstream/libobject-insideout-perl/current/META.yml
branches/upstream/libobject-insideout-perl/current/README
branches/upstream/libobject-insideout-perl/current/examples/YAPI.pm
branches/upstream/libobject-insideout-perl/current/lib/Bundle/Object/InsideOut.pm
branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut.pm
branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut.pod
branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Autoload.pm
branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Chained.pm
branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Cumulative.pm
branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Dump.pm
branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Dynamic.pm
branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Exception.pm
branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Foreign.pm
branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Metadata.pm
branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Overload.pm
branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Secure.pm
branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Universal.pm
branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Util.pm
branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/attributes.pm
branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/lvalue.pm
Modified: branches/upstream/libobject-insideout-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libobject-insideout-perl/current/Changes?rev=71844&op=diff
==============================================================================
--- branches/upstream/libobject-insideout-perl/current/Changes (original)
+++ branches/upstream/libobject-insideout-perl/current/Changes Tue Mar 22 02:54:43 2011
@@ -1,4 +1,7 @@
Revision history for Perl extension Object::InsideOut.
+
+3.81 Tue Mar 22 02:20:49 2011
+ - Faster initialization (from O(n^3) to O(n))
3.79 Fri Dec 24 18:06:02 2010
- Bundle update
Modified: branches/upstream/libobject-insideout-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libobject-insideout-perl/current/META.yml?rev=71844&op=diff
==============================================================================
--- branches/upstream/libobject-insideout-perl/current/META.yml (original)
+++ branches/upstream/libobject-insideout-perl/current/META.yml Tue Mar 22 02:54:43 2011
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Object-InsideOut
-version: 3.79
+version: 3.81
abstract: Comprehensive inside-out object support module
author:
- Jerry D. Hedden <jdhedden AT cpan DOT org>
Modified: branches/upstream/libobject-insideout-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libobject-insideout-perl/current/README?rev=71844&op=diff
==============================================================================
--- branches/upstream/libobject-insideout-perl/current/README (original)
+++ branches/upstream/libobject-insideout-perl/current/README Tue Mar 22 02:54:43 2011
@@ -1,4 +1,4 @@
-Object-InsideOut version 3.79
+Object-InsideOut version 3.81
=============================
This module provides comprehensive support for implementing classes using the
Modified: branches/upstream/libobject-insideout-perl/current/examples/YAPI.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libobject-insideout-perl/current/examples/YAPI.pm?rev=71844&op=diff
==============================================================================
--- branches/upstream/libobject-insideout-perl/current/examples/YAPI.pm (original)
+++ branches/upstream/libobject-insideout-perl/current/examples/YAPI.pm Tue Mar 22 02:54:43 2011
@@ -2,7 +2,7 @@
use strict;
use warnings;
- our $VERSION = '3.79';
+ our $VERSION = '3.81';
#####
#
@@ -22,7 +22,7 @@
$threaded_okay = !$@;
}
- use Object::InsideOut 3.79;
+ use Object::InsideOut 3.81;
# Default progress indicator is a twirling bar
my @yapi :Field
Modified: branches/upstream/libobject-insideout-perl/current/lib/Bundle/Object/InsideOut.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libobject-insideout-perl/current/lib/Bundle/Object/InsideOut.pm?rev=71844&op=diff
==============================================================================
--- branches/upstream/libobject-insideout-perl/current/lib/Bundle/Object/InsideOut.pm (original)
+++ branches/upstream/libobject-insideout-perl/current/lib/Bundle/Object/InsideOut.pm Tue Mar 22 02:54:43 2011
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '3.79';
+our $VERSION = '3.81';
$VERSION = eval $VERSION;
1;
@@ -20,17 +20,17 @@
=head1 CONTENTS
-Test::Harness 3.22 - Used for module testing
+Test::Harness 3.23 - Used for module testing
-Test::Simple 0.96 - Used for module testing
+Test::Simple 0.98 - Used for module testing
Scalar::Util 1.23 - Used by Object::InsideOut
Pod::Escapes 1.04 - Used by Pod::Simple
-Pod::Simple 3.15 - Used by Test::Pod
+Pod::Simple 3.16 - Used by Test::Pod
-Test::Pod 1.44 - Checks POD syntax
+Test::Pod 1.45 - Checks POD syntax
Devel::Symdump 2.08 - Used by Pod::Coverage
@@ -52,21 +52,21 @@
Storable 2.25 - Object serialization support
-Devel::StackTrace 1.26 - Used by Exception::Class
+Devel::StackTrace 1.27 - Used by Exception::Class
Class::Data::Inheritable 0.08 - Used by Exception::Class
Exception::Class 1.32 - Error handling
-Object::InsideOut 3.79 - Inside-out object support
+Object::InsideOut 3.81 - Inside-out object support
-URI 1.56 - Used by LWP::UserAgent
+URI 1.58 - Used by LWP::UserAgent
HTML::Tagset 3.20 - Used by LWP::UserAgent
HTML::Parser 3.68 - Used by LWP::UserAgent
-LWP::UserAgent 5.836 - Used by Math::Random::MT::Auto
+LWP::UserAgent 6.00 - Used by Math::Random::MT::Auto
Win32::API 0.59 - Used by Math::Random::MT::Auto (Win XP only)
Modified: branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut.pm?rev=71844&op=diff
==============================================================================
--- branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut.pm (original)
+++ branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut.pm Tue Mar 22 02:54:43 2011
@@ -5,12 +5,12 @@
use strict;
use warnings;
-our $VERSION = '3.79';
+our $VERSION = '3.81';
$VERSION = eval $VERSION;
-use Object::InsideOut::Exception 3.79;
-use Object::InsideOut::Util 3.79 qw(create_object hash_re is_it make_shared);
-use Object::InsideOut::Metadata 3.79;
+use Object::InsideOut::Exception 3.81;
+use Object::InsideOut::Util 3.81 qw(create_object hash_re is_it make_shared);
+use Object::InsideOut::Metadata 3.81;
require B;
@@ -44,6 +44,8 @@
td => {}, # Top down
bu => {}, # Bottom up
},
+
+ asi => {}, # Reverse 'isa'
id => {
obj => {}, # Object IDs
@@ -261,6 +263,7 @@
foreach my $ancestor (@{$GBL{'tree'}{'td'}{$parent}}) {
if (! exists($seen{$ancestor})) {
push(@tree, $ancestor);
+ $GBL{'asi'}{$ancestor}{$class} = undef;
$seen{$ancestor} = undef;
}
}
@@ -715,89 +718,113 @@
return if (! delete($GBL{'init'}));
my $trees = $GBL{'tree'}{'td'};
+ my $id_subs = $GBL{'sub'}{'id'};
+ my $obj_ids = $GBL{'id'}{'obj'};
no warnings 'redefine';
no strict 'refs';
- # Purge existing references to the default :ID sub (i.e., _ID)
+ # Determine classes that need ID subs
+ # Purge existing references to the default ID sub (i.e., _ID)
# if no objects exist in that heirarchy
- my $id_subs = $GBL{'sub'}{'id'};
- my $obj_ids = $GBL{'id'}{'obj'};
+ my %need_id_sub;
foreach my $class (keys(%{$trees})) {
- foreach my $pkg (@{$$trees{$class}}) {
- if (exists($$id_subs{$pkg}) &&
- ($$id_subs{$pkg}{'code'} == \&_ID) &&
- ! exists($$obj_ids{$$id_subs{$pkg}{'pkg'}}))
- {
- delete($$id_subs{$pkg});
- }
- }
- }
-
- my $reapply = 1;
- while ($reapply) {
- $reapply = 0;
-
- # Propagate ID subs through the class hierarchies
- foreach my $class (keys(%{$trees})) {
- # Find ID sub for this class somewhere in its hierarchy
- my $id_sub_pkg;
- foreach my $pkg (@{$$trees{$class}}) {
- next if (! exists($$id_subs{$pkg}));
- if (! defined($id_sub_pkg)) {
- $id_sub_pkg = $pkg;
- next;
- }
- # Verify that all the ID subs in hierarchy are the same
- if (($$id_subs{$pkg}{'code'} != $$id_subs{$id_sub_pkg}{'code'}) ||
- ($$id_subs{$pkg}{'pkg'} ne $$id_subs{$id_sub_pkg}{'pkg'}))
+ if (! exists($$id_subs{$class})) {
+ $need_id_sub{$class} = undef;
+ } elsif (($$id_subs{$class}{'code'} == \&_ID) &&
+ ! exists($$obj_ids{$$id_subs{$class}{'pkg'}}))
+ {
+ delete($$id_subs{$class});
+ $need_id_sub{$class} = undef;
+ }
+ }
+
+ # Get ID subs to propagate
+ my %to_propagate;
+ foreach my $class (keys(%{$id_subs})) {
+ $to_propagate{$$id_subs{$class}{'pkg'}} = undef;
+ }
+
+ # Propagate ID subs to classes
+ while (%need_id_sub) {
+ # Get ID sub package
+ my $pkg;
+ if (%to_propagate) {
+ ($pkg) = keys(%to_propagate);
+ delete($to_propagate{$pkg});
+ } else {
+ (my $class) = keys(%need_id_sub);
+ $pkg = $$trees{$class}[0];
+ delete($need_id_sub{$pkg});
+ if (! defined($pkg)) {
+ # bug
+ OIO::Internal->die(
+ 'message' => "Class '$class' has empty tree",
+ );
+ }
+ if (exists($$id_subs{$pkg})) {
+ # bug
+ OIO::Internal->die(
+ 'message' => "ID sub for '$pkg' exists but was not propagated properly",
+ );
+ }
+ $$id_subs{$pkg} = {
+ pkg => $pkg,
+ code => \&_ID,
+ loc => [ '', 'Default :ID sub', 0 ],
+ };
+ }
+
+ # Add ID sub to classes using package
+ next if (! exists($GBL{'asi'}{$pkg}));
+ my @propagate_to = keys(%{$GBL{'asi'}{$pkg}});
+ my %seen = map { $_ => undef } @propagate_to;
+ while (my $class = pop(@propagate_to)) {
+ if (exists($$id_subs{$class})) {
+ # Verify it's the same ID sub
+ if (($$id_subs{$class}{'code'} != $$id_subs{$pkg}{'code'}) ||
+ ($$id_subs{$class}{'pkg'} ne $$id_subs{$pkg}{'pkg'}))
{
# Runtime merging of heirarchies with existing objects
- if (($$id_subs{$pkg}{'code'} == \&_ID) ||
- ($$id_subs{$id_sub_pkg}{'code'} == \&_ID))
+ if (($$id_subs{$class}{'code'} == \&_ID) ||
+ ($$id_subs{$pkg}{'code'} == \&_ID))
{
OIO::Runtime->die(
'message' => "Possible extant objects prevent runtime creation of hierarchy for class '$class'",
'Info' => "Runtime loading of classes needs to be performed before any objects are created within their hierarchies",
- ((($$id_subs{$pkg}{'code'} == \&_ID) && ($$id_subs{$id_sub_pkg}{'code'} == \&_ID))
+ ((($$id_subs{$class}{'code'} == \&_ID) && ($$id_subs{$pkg}{'code'} == \&_ID))
? ()
- : ('Class1' => "The hierarchy for '$$id_subs{$pkg}{'pkg'}' is using object IDs generated by " .
- (($$id_subs{$pkg}{'code'} == \&_ID) ? 'Object::InsideOut' : 'a custom :ID subroutine'),
- 'Class2' => "The hierarchy for '$$id_subs{$id_sub_pkg}{'pkg'}' is using object IDs generated by " .
- (($$id_subs{$id_sub_pkg}{'code'} == \&_ID) ? 'Object::InsideOut' : 'a custom :ID subroutine'))));
+ : ('Class1' => "The hierarchy for '$$id_subs{$class}{'pkg'}' is using object IDs generated by " .
+ (($$id_subs{$class}{'code'} == \&_ID) ? 'Object::InsideOut' : 'a custom :ID subroutine'),
+ 'Class2' => "The hierarchy for '$$id_subs{$pkg}{'pkg'}' is using object IDs generated by " .
+ (($$id_subs{$pkg}{'code'} == \&_ID) ? 'Object::InsideOut' : 'a custom :ID subroutine'))));
}
# Multiple :ID subs in heirarchy
- my (undef, $file, $line) = @{$$id_subs{$pkg}{'loc'}};
- my (undef, $file2, $line2) = @{$$id_subs{$id_sub_pkg}{'loc'}};
+ my (undef, $file, $line) = @{$$id_subs{$class}{'loc'}};
+ my (undef, $file2, $line2) = @{$$id_subs{$pkg}{'loc'}};
OIO::Attribute->die(
'message' => "Multiple :ID subs defined within hierarchy for class '$class'",
- 'Info' => ":ID subs in class '$$id_subs{$pkg}{'pkg'}' (file '$file', line $line), and class '$$id_subs{$id_sub_pkg}{'pkg'}' (file '$file2', line $line2)");
- }
- }
-
- # If ID sub found, propagate it through the class hierarchy
- if (defined($id_sub_pkg)) {
- foreach my $pkg (@{$$trees{$class}}) {
- if (! exists($$id_subs{$pkg})) {
- $$id_subs{$pkg} = $$id_subs{$id_sub_pkg};
- $reapply = 1;
+ 'Info' => ":ID subs in class '$$id_subs{$class}{'pkg'}' (file '$file', line $line), and class '$$id_subs{$pkg}{'pkg'}' (file '$file2', line $line2)");
+ }
+ } else {
+ # Add ID sub to class
+ $$id_subs{$class} = $$id_subs{$pkg};
+ delete($need_id_sub{$class});
+ # Propagate to classes in this class's tree
+ foreach my $add (@{$$trees{$class}}) {
+ if (! defined($seen{$add})) {
+ push(@propagate_to, $add);
+ $seen{$add} = undef;
}
}
- }
- }
-
- # Check for any classes without ID subs
- if (! $reapply) {
- foreach my $class (keys(%{$trees})) {
- if (! exists($$id_subs{$class})) {
- # Default to internal ID sub and propagate it
- $$id_subs{$class} = {
- pkg => $$trees{$class}[0],
- code => \&_ID,
- loc => [ '', 'Default :ID sub', 0 ],
- };
- $reapply = 1;
- last;
+ # Propagate to classes that use this one
+ if (exists($GBL{'asi'}{$class})) {
+ foreach my $add (keys(%{$GBL{'asi'}{$class}})) {
+ if (! defined($seen{$add})) {
+ push(@propagate_to, $add);
+ $seen{$add} = undef;
+ }
+ }
}
}
}
Modified: branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut.pod
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut.pod?rev=71844&op=diff
==============================================================================
--- branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut.pod (original)
+++ branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut.pod Tue Mar 22 02:54:43 2011
@@ -4,7 +4,7 @@
=head1 VERSION
-This document describes Object::InsideOut version 3.79
+This document describes Object::InsideOut version 3.81
=head1 SYNOPSIS
Modified: branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Autoload.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Autoload.pm?rev=71844&op=diff
==============================================================================
--- branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Autoload.pm (original)
+++ branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Autoload.pm Tue Mar 22 02:54:43 2011
@@ -172,7 +172,7 @@
# Ensure correct versioning
-($Object::InsideOut::VERSION == 3.79)
+($Object::InsideOut::VERSION == 3.81)
or die("Version mismatch\n");
# EOF
Modified: branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Chained.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Chained.pm?rev=71844&op=diff
==============================================================================
--- branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Chained.pm (original)
+++ branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Chained.pm Tue Mar 22 02:54:43 2011
@@ -181,7 +181,7 @@
# Ensure correct versioning
-($Object::InsideOut::VERSION == 3.79)
+($Object::InsideOut::VERSION == 3.81)
or die("Version mismatch\n");
# EOF
Modified: branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Cumulative.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Cumulative.pm?rev=71844&op=diff
==============================================================================
--- branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Cumulative.pm (original)
+++ branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Cumulative.pm Tue Mar 22 02:54:43 2011
@@ -206,11 +206,11 @@
use strict;
use warnings;
-our $VERSION = '3.79';
+our $VERSION = '3.81';
$VERSION = eval $VERSION;
-use Object::InsideOut 3.79;
-use Object::InsideOut::Metadata 3.79;
+use Object::InsideOut 3.81;
+use Object::InsideOut::Metadata 3.81;
my @VALUES :Field :Arg(VALUES);
my @CLASSES :Field :Arg(CLASSES);
@@ -260,7 +260,7 @@
# Ensure correct versioning
-($Object::InsideOut::VERSION == 3.79)
+($Object::InsideOut::VERSION == 3.81)
or die("Version mismatch\n");
# EOF
Modified: branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Dump.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Dump.pm?rev=71844&op=diff
==============================================================================
--- branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Dump.pm (original)
+++ branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Dump.pm Tue Mar 22 02:54:43 2011
@@ -205,7 +205,7 @@
# Ensure correct versioning
-($Object::InsideOut::VERSION == 3.79)
+($Object::InsideOut::VERSION == 3.81)
or die("Version mismatch\n");
# EOF
Modified: branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Dynamic.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Dynamic.pm?rev=71844&op=diff
==============================================================================
--- branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Dynamic.pm (original)
+++ branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Dynamic.pm Tue Mar 22 02:54:43 2011
@@ -164,6 +164,7 @@
$$tree_bu{$cl} = \@tree;
@{$$tree_td{$cl}} = reverse(@tree);
}
+ $$GBL{'asi'}{$pkg}{$class} = undef;
};
# Invalidate object initialization activity cache
@@ -178,7 +179,7 @@
# Ensure correct versioning
-($Object::InsideOut::VERSION == 3.79)
+($Object::InsideOut::VERSION == 3.81)
or die("Version mismatch\n");
# EOF
Modified: branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Exception.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Exception.pm?rev=71844&op=diff
==============================================================================
--- branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Exception.pm (original)
+++ branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Exception.pm Tue Mar 22 02:54:43 2011
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '3.79';
+our $VERSION = '3.81';
$VERSION = eval $VERSION;
# Exceptions generated by this module
Modified: branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Foreign.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Foreign.pm?rev=71844&op=diff
==============================================================================
--- branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Foreign.pm (original)
+++ branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Foreign.pm Tue Mar 22 02:54:43 2011
@@ -270,7 +270,7 @@
# Ensure correct versioning
-($Object::InsideOut::VERSION == 3.79)
+($Object::InsideOut::VERSION == 3.81)
or die("Version mismatch\n");
# EOF
Modified: branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Metadata.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Metadata.pm?rev=71844&op=diff
==============================================================================
--- branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Metadata.pm (original)
+++ branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Metadata.pm Tue Mar 22 02:54:43 2011
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '3.79';
+our $VERSION = '3.81';
$VERSION = eval $VERSION;
# Stores method metadata
@@ -99,7 +99,7 @@
### Object Interface ###
-use Object::InsideOut 3.79;
+use Object::InsideOut 3.81;
my @CLASSES :Field;
my @FOREIGN :Field;
@@ -268,7 +268,7 @@
=head1 VERSION
-This document describes Object::InsideOut::Metadata version 3.79
+This document describes Object::InsideOut::Metadata version 3.81
=head1 SYNOPSIS
Modified: branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Overload.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Overload.pm?rev=71844&op=diff
==============================================================================
--- branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Overload.pm (original)
+++ branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Overload.pm Tue Mar 22 02:54:43 2011
@@ -83,7 +83,7 @@
# Ensure correct versioning
-($Object::InsideOut::VERSION == 3.79)
+($Object::InsideOut::VERSION == 3.81)
or die("Version mismatch\n");
# EOF
Modified: branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Secure.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Secure.pm?rev=71844&op=diff
==============================================================================
--- branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Secure.pm (original)
+++ branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Secure.pm Tue Mar 22 02:54:43 2011
@@ -2,10 +2,10 @@
use strict;
use warnings;
- our $VERSION = '3.79';
+ our $VERSION = '3.81';
$VERSION = eval $VERSION;
- use Object::InsideOut 3.79 ':hash_only';
+ use Object::InsideOut 3.81 ':hash_only';
# Holds used IDs
my %used :Field = ( 0 => undef );
Modified: branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Universal.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Universal.pm?rev=71844&op=diff
==============================================================================
--- branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Universal.pm (original)
+++ branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Universal.pm Tue Mar 22 02:54:43 2011
@@ -211,7 +211,7 @@
# Ensure correct versioning
-($Object::InsideOut::VERSION == 3.79)
+($Object::InsideOut::VERSION == 3.81)
or die("Version mismatch\n");
# EOF
Modified: branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Util.pm?rev=71844&op=diff
==============================================================================
--- branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Util.pm (original)
+++ branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/Util.pm Tue Mar 22 02:54:43 2011
@@ -5,10 +5,10 @@
use strict;
use warnings;
-our $VERSION = '3.79';
+our $VERSION = '3.81';
$VERSION = eval $VERSION;
-use Object::InsideOut::Metadata 3.79;
+use Object::InsideOut::Metadata 3.81;
### Module Initialization ###
Modified: branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/attributes.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/attributes.pm?rev=71844&op=diff
==============================================================================
--- branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/attributes.pm (original)
+++ branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/attributes.pm Tue Mar 22 02:54:43 2011
@@ -79,7 +79,7 @@
# Ensure correct versioning
-($Object::InsideOut::VERSION == 3.79)
+($Object::InsideOut::VERSION == 3.81)
or die("Version mismatch\n");
# EOF
Modified: branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/lvalue.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/lvalue.pm?rev=71844&op=diff
==============================================================================
--- branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/lvalue.pm (original)
+++ branches/upstream/libobject-insideout-perl/current/lib/Object/InsideOut/lvalue.pm Tue Mar 22 02:54:43 2011
@@ -157,7 +157,7 @@
# Ensure correct versioning
-($Object::InsideOut::VERSION == 3.79)
+($Object::InsideOut::VERSION == 3.81)
or die("Version mismatch\n");
# EOF
More information about the Pkg-perl-cvs-commits
mailing list