knu-perlstorable 0.1.1 → 0.1.2

data/lib/perlstorable.rb

@@ -23,6 +23,7 @@ module PerlStorable
   #
   # call-seq:
   #     PerlStorable.thaw(str) => object
+  #     PerlStorable.load(str) => object
   #
   # Deserializes a string serialized by Perl's Storable module.
   #
@@ -59,6 +60,10 @@ module PerlStorable
     io.close if need_close
   end
 
+  class << self
+    alias load thaw
+  end
+
   SX_OBJECT           =  0 # Already stored object
   SX_LSCALAR          =  1 # Scalar (large binary) follows (length, data)
   SX_ARRAY            =  2 # Array forthcominng (size, item list)
@@ -374,11 +379,29 @@ module PerlStorable
 
   end
 
+  # This class represents a Perl scalar value that is immutable in
+  # Ruby. (most likely an integer)
   class PerlScalar
+    attr_reader :value
+
     def initialize(value)
       @value = value
     end
 
+    def to_i
+      @value.to_i
+    end
+    alias to_int to_i
+
+    def to_s
+      @value.to_s
+    end
+    alias to_str to_s
+
+    def to_f
+      @value.to_f
+    end
+
     def inspect
       '#<%s:%s>' % [self.class, @value.inspect]
     end
@@ -414,15 +437,3 @@ module PerlStorable
     obj.is_a?(PerlBlessed)
   end
 end
-
-if $0 == __FILE__
-  eval DATA.read, nil, $0, __LINE__+4
-end
-
-__END__
-
-# TODO: Real tests needed
-
-require 'pp'
-obj = PerlStorable.thaw(ARGF.read)
-pp obj

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: knu-perlstorable
 version: !ruby/object:Gem::Version 
-  version: 0.1.1
+  version: 0.1.2
 platform: ruby
 authors: 
 - Akinori MUSHA