@Ghazascanner
_2019runbot
Ghazascanner File Manager
server :Linux phosweb010 3.10.0-1160.el7.x86_64 #1 SMP Mon Oct 19 16:18:59 UTC 2020 x86_64
Current Path :
/
homepage
/
v-mt
/
extlib
/
Data
/
ObjectDriver
/
Path :
Upload File :
New :
File
Dir
/homepage/v-mt/extlib/Data/ObjectDriver/Iterator.pm
package Data::ObjectDriver::Iterator; use strict; use warnings; my %Iterators = (); sub new { my $class = shift; my( $each, $end ) = @_; bless $each, $class; if ($end) { $Iterators{ $each }{ end } = $end; } return $each; } sub next { return shift->(); } sub end { my $each = shift; my $hash = delete $Iterators{ $each }; $hash->{ end }->() if $hash and ref $hash->{ end } eq 'CODE'; } sub DESTROY { my $iter = shift; # use YAML; warn Dump \%Iterators; $iter->end(); } 1;