perl moose 修飾器

標籤：os   使用   for   ar   2014   sp   new   on   ef   

原理上就是在調用某個方法之前，先做一些事情，比如檢查參數什麼的，在Dancer中也有這個關鍵字，可以在request到來的時候，通過檢查

遠程ip來判斷是否是非法的ip請求

 

#!/usr/bin/perl
# file : before.pl
# date : 2014/08/26
# author : darkstar

#使用moose 定義一個類

package Person;
use Moose;

has ‘name‘ => (
    is => ‘ro‘,
    isa => ‘Str‘,
    required => 1,
);

has ‘age‘ => (
    is => ‘rw‘,
    isa => ‘Int‘,
    required => 1,
);

# 喝酒前檢查年齡是否18 ，年齡檢查的邏輯可以放在 drink_Brandy 裡也行，這裡是為了

# 體現before的功能

before ‘drink_Brandy‘ => sub {
    my $self = shift;
    if ($self->age > 18 ) {
        print "you can drink Brandy!\n"
    }
    else {
        print "get out boy!\n";
        exit;
    }
};

sub drink_Brandy {
    print "Good!\n";
};

1;

use Person;
# 產生一個person對象，16歲
my $p1 = Person->new(name =>‘dark‘, age => 16);

print $p1->name, "\n";
print $p1->age, "\n";

$p1->drink_Brandy;   #直接喝酒，before 替我們把關年齡，不滿18就中斷程式

# 程式輸出如下：

dark
16
get out boy!  # 小孩子 回家去！

perl moose 修飾器