Commits

(no ...@ddf91b2d-1462-4000-aae5-8a08ddc4854f  committed ea962a0

Convert from Object-Tiny to Class-XSAccessor.

  • Participants
  • Parent commits 7b2af02

Comments (0)

Files changed (2)

File modules/Shlomif-Sokoban-Solver/Build.PL

     dist_version_from   => 'lib/Shlomif/Sokoban/Solver.pm',
     build_requires => {
         'Test::More' => 0,
-        'Object::Tiny' => 0,
+        'Class::XSAccessor' => 0,
     },
     add_to_cleanup      => [ 'Shlomif-Sokoban-Solver-*' ],
     create_makefile_pl => 'traditional',

File modules/Shlomif-Sokoban-Solver/lib/Shlomif/Sokoban/Solver/Board.pm

 
 use List::Util qw(max);
 
-use Object::Tiny qw/
+use Class::XSAccessor 
+    accessors => 
+    [map { $_ => $_ } qw/
     height
     width
     _collect
     _dests
     _init_state
     _queue
-/;
+    /],
+    constructor => 'new'
+    ;
 
 my $dest_place_bits = 0x1;
 my $wall_bits = 0x2;
 
 =head1 METHODS
 
+=head2 new(...)
+
+The internal constructor - for internal use - see ->load() instead.
+
 =head2 load($board)
 
 Loads a board in standard Sokoban notation.