Select Code to Download

P:\test>467452 -N=1
         Rate   OO5   OO4   OO3   OO2   OO1  subs
...
OO1  4.39/s 210% 206% 132% 129%   --  -0%
subs 4.41/s 212% 207% 133% 130%   0%   --

#! perl -slw
use strict;
...
        my @modified = $obj->sumem;
    ],
};

use strict;

...
    return map{ scalar reverse } @_;
}
1;

#! perl -slw
use strict;
...
    return map{ scalar reverse } @_;
}
1;

#! perl -slw
use strict;
...
    @{ $self } =  map{ scalar reverse } @{ $self };
}
1;

#! perl -slw
use strict;
...
    @{ $self->{ data } } =  map{ scalar reverse } @{ $self->{ data } }
+;
}
1;

#! perl -slw
use strict;
...
    $self->_setData( map{ scalar reverse } $self->_getData() );
}
1;

#! perl -slw
use strict;
...
    $self->_setData( map{ scalar reverse } $self->_getData() );
}
1;