ktat

    use Data::Delay;
    
    my $test = 1;
    my $data = Data::Delay->new(\$test);
    
    print $data; # 1
    $test = 2;
    print $test; # 2
    
    my $plus = Data::Delay->New(sub { $data + 2 });

ktat

#!/usr/bin/perl

use strict;
use warnings;

package Test;

use Carp;

sub hoge {

ktat

#!/usr/bin/env perl
package Hoge{
    sub new {
        my $class = shift;
        my $args = ref $_[0] ? $_[0] : +{@_};
        
        $args->{package} = __PACKAGE__;
        bless $args, $class;
    }

ktat

#!/usr/bin/env perl

use feature 'say';

package Hoge{
    sub new {
        my $class = shift;
        my $args = ref $_[0] ? $_[0] : +{@_};
        bless $args, $class;
    }

ktat

    use base qw/Qudo::Worker/;
    sub import{
        my $class = shift;
        if($class->split_process_from_initial_character()){
            no strict 'refs';
            my $package = $class;
            *{"$package\::InitialLowerCase::ISA"} = [$package];
            *{"$package\::InitialUpperCase::ISA"} = [$package];
            *{"$package\::InitialNumber::ISA"} = [$package];
            *{"$package\::get_splited_worker_classname"} = sub {

ktat

#!/usr/bin/perl

use strict;
use File::Slurp qw/slurp/;
use LWP::Simple qw/get/;

my $jpa_dir    = '/home/ktat/git/github/jpa-translation/';
my $assets_dir = '/home/ktat/git/github/PJP/assets/perldoc.jp/docs/modules/';

copy_to_pjp_assets($jpa_dir, $assets_dir);

ktat

(defun oi ()
  (interactive)
  (insert "=begin original\n\n")
  (search-forward-regexp "^\n")
  (goto-char (match-beginning 0))
  (insert "\n=end original\n")
)

ktat

% sudo tcpdump 'tcp port 5000' -i lo -A -ttt
tcpdump: verbose output suppressed, use -v or -vv for full protocol decode
listening on lo, link-type EN10MB (Ethernet), capture size 96 bytes
00:00:00.000000 IP gatto.36312 > gatto.5000: Flags [F.], seq 468590568, ack 468536422, win 257, options [nop,nop,TS val 20656595 ecr 20655989], length 0
E..43p@.@.      R..................Lf.....p.....
.;1..;/u
00:00:00.000041 IP gatto.5000 > gatto.36312: Flags [.], ack 1, win 256, options [nop,nop,TS val 20656595 ecr 20656595], length 0
E..4..@.@.<...............Lf...............
.;1..;1.
00:00:00.001033 IP gatto.36316 > gatto.5000: Flags [S], seq 665707558, win 32792, options [mss 16396,sackOK,TS val 20656595 ecr 0,nop,wscale 7], length 0

ktat

% sudo tcpdump 'tcp port 5000' -i lo -A -ttt
tcpdump: verbose output suppressed, use -v or -vv for full protocol decode
listening on lo, link-type EN10MB (Ethernet), capture size 96 bytes
00:00:00.000000 IP gatto.36255 > gatto.5000: Flags [S], seq 2660630935, win 32792, options [mss 16396,sackOK,TS val 20641806 ecr 0,nop,wscale 7], length 0
E..<..@.@.C ........................T.....@....
.:..........
00:00:00.000040 IP gatto.5000 > gatto.36255: Flags [S.], seq 2660819315, ack 2660630936, win 32768, options [mss 16396,sackOK,TS val 20641806 ecr 20641806,nop,wscale 7], length 0
E..<..@.@.<................s..............@....
.:...:......
00:00:00.000035 IP gatto.36255 > gatto.5000: Flags [.], ack 1, win 257, options [nop,nop,TS val 20641806 ecr 20641806], length 0

ktat

#!/usr/bin/perl

use strict;
use warnings;

use POSIX ":sys_wait_h";
use Protocol::WebSocket::Handshake::Client;
use Protocol::WebSocket::Frame;
use IO::Socket;
use open ':utf8';