Moose、Moo***::Declare成员方法访问控制

001Moose成员方法访问控制

#!usr/bin/perl

package Bank;
use Moose;
use Attribute::Protected;

sub _bar : Private {
    my ( $self, $bar ) = @_;
    print "Private $bar.\n";
}

sub _baz : Protected {
    my ( $self, $baz ) = @_;
    print "Protected $baz.\n";
}

sub test {
    my $self = shift;
    $self->_bar('bar'); #OK

    $self->_baz('baz'); #OK

}

package BankChild;
use Moose;
extends 'Bank';

sub yettest {
    my $self = shift;
    $self->_bar('bar'); #NG: private method

    $self->_baz('baz'); #OK

}

package main;
my $b = BankChild->new();
$b->test();

#$b->yettest();


#$b->_bar(); #NG: private method

 

002Moo***::Declare成员方法访问控制

#!usr/bin/perl

use Moo***::Declare;
use Attribute::Protected;

class Bank {

    sub _bar : Private {
        my ( $self, $bar ) = @_;
        print "Private $bar.\n";
    }

    sub _baz : Protected {
        my ( $self, $baz ) = @_;
        print "Protected $baz.\n";
    }
    method test {
        $self->_bar('bar'); #OK

        $self->_baz('baz'); #OK

    };
}

class BankChild extends Bank {
    method yettest {
        $self->_bar('bar'); #NG: private method

        $self->_baz('baz'); #OK

    }
}

# Main program

my $b = BankChild->new();
$b->test();

#$b->yettest();


#$b->_bar(); #NG: private method

对比，perl6的成员方法控制的行为则不同

class Bank {
    method !_bar($bar){
        say "Private $bar";
    }

    method baz($baz) {
        say "provide $baz";
    }

    method test {
        self!_bar('bar-test'); #OK
        self.baz('baz-test'); #OK
    };
}

class BankChild is Bank {
    method yettest {
        self!_bar('bar-yettest'); #OK
        self.baz('baz-yettest'); #OK
    }
}

my $b=BankChild.new();
$b.test();
$b.yettest();
#$b._bar('bar-out'); #NG: private method
$b.baz('baz-out');