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