[Moose-commits] r7436 - in MooseX-GlobRef-Object/trunk: . eg lib/MooseX/GlobRef lib/MooseX/GlobRef/Meta

[dexter at code2.0beta.co.uk]

Author: dexter
Date: 2009-01-30 13:32:49 -0800 (Fri, 30 Jan 2009)
New Revision: 7436

Modified:
   MooseX-GlobRef-Object/trunk/MANIFEST
   MooseX-GlobRef-Object/trunk/eg/extends_object.pl
   MooseX-GlobRef-Object/trunk/eg/use_metaclass.pl
   MooseX-GlobRef-Object/trunk/lib/MooseX/GlobRef/Meta/Class.pm
   MooseX-GlobRef-Object/trunk/lib/MooseX/GlobRef/Meta/Instance.pm
   MooseX-GlobRef-Object/trunk/lib/MooseX/GlobRef/Object.pm
Log:
* Fix examples and POD.

Modified: MooseX-GlobRef-Object/trunk/MANIFEST
===================================================================
--- MooseX-GlobRef-Object/trunk/MANIFEST	2009-01-30 21:21:43 UTC (rev 7435)
+++ MooseX-GlobRef-Object/trunk/MANIFEST	2009-01-30 21:32:49 UTC (rev 7436)
@@ -33,3 +33,4 @@
 Makefile.PL
 README
 META.yml
+LICENSE

Modified: MooseX-GlobRef-Object/trunk/eg/extends_object.pl
===================================================================
--- MooseX-GlobRef-Object/trunk/eg/extends_object.pl	2009-01-30 21:21:43 UTC (rev 7435)
+++ MooseX-GlobRef-Object/trunk/eg/extends_object.pl	2009-01-30 21:32:49 UTC (rev 7436)
@@ -15,9 +15,8 @@
 );
 
 sub open {
-    my $fh      = shift;
-    my $hashref = ${*$fh};
-    open $fh, $hashref->{file} or confess "cannot open";
+    my $fh = shift;
+    open $fh, $fh->file or confess "cannot open";
     return $fh;
 }
 

Modified: MooseX-GlobRef-Object/trunk/eg/use_metaclass.pl
===================================================================
--- MooseX-GlobRef-Object/trunk/eg/use_metaclass.pl	2009-01-30 21:21:43 UTC (rev 7435)
+++ MooseX-GlobRef-Object/trunk/eg/use_metaclass.pl	2009-01-30 21:32:49 UTC (rev 7436)
@@ -17,9 +17,8 @@
 );
 
 sub open {
-    my $fh      = shift;
-    my $hashref = ${*$fh};
-    open $fh, $hashref->{file} or confess "cannot open";
+    my $fh = shift;
+    open $fh, $fh->file or confess "cannot open";
     return $fh;
 }
 

Modified: MooseX-GlobRef-Object/trunk/lib/MooseX/GlobRef/Meta/Class.pm
===================================================================
--- MooseX-GlobRef-Object/trunk/lib/MooseX/GlobRef/Meta/Class.pm	2009-01-30 21:21:43 UTC (rev 7435)
+++ MooseX-GlobRef-Object/trunk/lib/MooseX/GlobRef/Meta/Class.pm	2009-01-30 21:32:49 UTC (rev 7436)
@@ -44,11 +44,11 @@
 
 =head1 AUTHOR
 
-Piotr Roszatycki E<lt>dexter at debian.orgE<gt>
+Piotr Roszatycki <dexter at cpan.org>
 
 =head1 LICENSE
 
-Copyright (C) 2007, 2008 by Piotr Roszatycki E<lt>dexter at debian.orgE<gt>.
+Copyright (C) 2007, 2008, 2009 by Piotr Roszatycki E<lt>dexter at debian.orgE<gt>.
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

Modified: MooseX-GlobRef-Object/trunk/lib/MooseX/GlobRef/Meta/Instance.pm
===================================================================
--- MooseX-GlobRef-Object/trunk/lib/MooseX/GlobRef/Meta/Instance.pm	2009-01-30 21:21:43 UTC (rev 7435)
+++ MooseX-GlobRef-Object/trunk/lib/MooseX/GlobRef/Meta/Instance.pm	2009-01-30 21:32:49 UTC (rev 7436)
@@ -19,8 +19,7 @@
 
   sub open {
     my $fh = shift;
-    my $hashref = \%{*$fh};
-    open $fh, $hashref->{file} or confess "cannot open";
+    open $fh, $fh->file or confess "cannot open";
     return $fh;
   };
 
@@ -156,7 +155,7 @@
 
 =head1 AUTHOR
 
-Piotr Roszatycki E<lt>dexter at debian.orgE<gt>
+Piotr Roszatycki <dexter at cpan.org>
 
 =head1 LICENSE
 

Modified: MooseX-GlobRef-Object/trunk/lib/MooseX/GlobRef/Object.pm
===================================================================
--- MooseX-GlobRef-Object/trunk/lib/MooseX/GlobRef/Object.pm	2009-01-30 21:21:43 UTC (rev 7435)
+++ MooseX-GlobRef-Object/trunk/lib/MooseX/GlobRef/Object.pm	2009-01-30 21:32:49 UTC (rev 7436)
@@ -18,8 +18,7 @@
 
   sub open {
     my $fh = shift;
-    my $hashref = \%{*$fh};
-    open $fh, $hashref->{file} or confess "cannot open";
+    open $fh, $fh->file or confess "cannot open";
     return $fh;
   }
 
@@ -41,7 +40,7 @@
 handle.  The class attributes will be stored in hash slot associated with glob
 reference.  It allows to create a Moose version of L<IO::Handle>.
 
-The elements of hash can be accessed with following expression:
+The elements of hash can be accessed directly with following expression:
 
   my $hashref = \%{*$self};
   $hashref->{key} = $value;
@@ -91,7 +90,7 @@
 
 =head1 AUTHOR
 
-Piotr Roszatycki E<lt>dexter at debian.orgE<gt>
+Piotr Roszatycki <dexter at cpan.org>
 
 =head1 LICENSE