use Scalar::Util qw(refaddr);
use namespace::clean;
-our $VERSION = '0.900'; # VERSION
+our $VERSION = '0.901'; # VERSION
sub new {
@strings or throw 'Must provide strings to lock';
for my $string (@strings) {
- my $item = {str => $string};
+ my $item = {str => $string, off => $self->{counter}};
$item->{filter} = $filter if defined $filter;
if (is_scalarref($string)) {
next if !defined $$string;
=head1 VERSION
-version 0.900
+version 0.901
=head1 SYNOPSIS