view release on metacpan or  search on metacpan

t/MockServer.pm  view on Meta::CPAN

            $key =~ s/\s+/_/g;
            $key =~ s/\//-/g;
            $key =~ s/[^a-zA-Z_\-0-9\.]//g;
            $msg->{key} = $key;

            if (@bits == 0 || ! defined $bits[0]) {
                push @bits, 1;
            }

            for (@bits) {
                my @fields = split m{\|};

                if (@fields == 1 || ! defined $fields[1]) {
                    $msg->{error} = "bad line";
                    next;
                }

                # Timer
                if ($fields[1] eq 'ms') {
                    push @{$msg->{timers}}, $fields[0];
                }