bool型ぽいもののオブジェクトをデバッグログ用にする例(Perl)

gistfile1.pl

#!/usr/bin/env perl

use strict;
use warnings;

package Debug;

sub new {
    my ($class, $flag) = @_;
    bless \$flag, $class;
}

sub printf {
    my ($self, @args) = @_;
    if ($$self) {
        CORE::printf(@args);
    }
}

package main;

my $debug_false = Debug->new(0);
my $debug_true  = Debug->new(1);

$debug_false->printf('This message will not appear');
$debug_true->printf('This message will appear');

感想: LLでやっても特に面白くなかった。

元ネタ: http://kwmt27.net/index.php/2013/04/09/golang-debug%E3%83%AD%E3%82%B0%E3%82%92%E5%9F%8B%E3%82%81%E8%BE%BC%E3%82%80%E3%81%AB%E3%81%AF%EF%BC%9F/