[Bps-public-commit] r14634 - in Data-Plist: . t

alexmv at bestpractical.com alexmv at bestpractical.com
Wed Jul 30 11:24:08 EDT 2008


Author: alexmv
Date: Wed Jul 30 11:24:06 2008
New Revision: 14634

Modified:
   Data-Plist/   (props changed)
   Data-Plist/ical-import.pl
   Data-Plist/lib/Data/Plist.pm
   Data-Plist/t/binary-object.t

Log:
 r34951 at kohr-ah:  chmrr | 2008-07-30 11:22:30 -0400
  * Remove prefixes in calls to ->object
  * Make raw_object into an internal method


Modified: Data-Plist/ical-import.pl
==============================================================================
--- Data-Plist/ical-import.pl	(original)
+++ Data-Plist/ical-import.pl	Wed Jul 30 11:24:06 2008
@@ -18,5 +18,5 @@
     }
 
     my $p = Data::Plist::BinaryReader->open_string($content);
-    print Data::Plist::XMLWriter->write($p->object("Foundation"));
+    print Data::Plist::XMLWriter->write($p->object);
 }

Modified: Data-Plist/lib/Data/Plist.pm
==============================================================================
--- Data-Plist/lib/Data/Plist.pm	(original)
+++ Data-Plist/lib/Data/Plist.pm	Wed Jul 30 11:24:06 2008
@@ -143,7 +143,7 @@
         and ref $p->[1]
         and $p->[1]->isa("Data::Plist") )
     {
-        return $p->[1]->raw_object;
+        return $p->[1]->_raw_object;
     } else {
         return $p;
     }
@@ -181,7 +181,7 @@
     }
 }
 
-sub raw_object {
+sub _raw_object {
     my $self = shift;
     return unless $self->is_archive;
     return $self->unref( $self->raw_data->[1]{'$top'}[1]{root} );
@@ -202,7 +202,7 @@
     require Foundation::NSObject;
 
     return unless $self->is_archive;
-    return $self->reify( $self->collapse( $self->raw_object ) );
+    return $self->reify( $self->collapse( $self->_raw_object ) );
 }
 
 =head1 DEPENDENCIES

Modified: Data-Plist/t/binary-object.t
==============================================================================
--- Data-Plist/t/binary-object.t	(original)
+++ Data-Plist/t/binary-object.t	Wed Jul 30 11:24:06 2008
@@ -11,7 +11,7 @@
 my $ret;
 my $read = Data::Plist::BinaryReader->new;
 my $p    = $read->open_file("t/data/todo.plist");
-my $o    = $p->object("Foundation");    # Should return a Foundation::LibraryTodo, which
+my $o    = $p->object;    # Should return a Foundation::LibraryTodo, which
                                         # isa Foundation::NSObject
 isa_ok( $o, "Foundation::NSObject" );
 my $s = Data::Plist::BinaryWriter->write($o);    # Returns a binary plist



More information about the Bps-public-commit mailing list