view release on metacpan or  search on metacpan

lib/Devel/StatProfiler/Slowops.pm.PL  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;
use autodie qw(open);

use Opcode qw(opset opset_to_ops);

open my $out, '>', $ARGV[0];

my @ops = opset_to_ops(
    opset(
        ":base_io",
        ":filesys_read",
        ":filesys_write",
        ":filesys_open",
        ":sys_db",
        ":subprocess",
        ":others",
        qw(match subst substcont qr regcomp prtf crypt chdir flock ioctl
           socket getpeername ssockopt bind connect listen accept shutdown
           gsockopt getsockname sleep sort pack unpack syscall dump chroot