Moose学习一例

aef25u

如下网上找到关于Moose使用的一个例子，刚接触感觉像天书，网上google一番，看了些资料终于搞明白了。现将整个理解过程简要列一下，希望对大家学Moose有帮助。

1. 
   
2. 
   
3.     {
   
4.         package Point;
   
5.         use Moose;
   
6. 
   
7.         has 'x' => ( isa => 'Int', is => 'rw' );
   
8.         has 'y' => ( isa => 'Int', is => 'rw' );
   
9. 
   
10.         use Moose::Util::TypeConstraints;
    
11.         subtype 'Point::OrHashRef',
    
12.           as 'Point';
    
13.         coerce 'Point::OrHashRef',
    
14.           from 'HashRef',
    
15.           via { Point->new( x => $_->{x}, y => $_->{y} ) };
    
16. 
    
17.         sub distance {
    
18.             my $start = shift;
    
19.             my $end = shift;
    
20. 
    
21.             my $dx = $end->x - $start->x;
    
22.             my $dy = $end->y - $start->y;
    
23.             return sqrt( $dx * $dx + $dy * $dy );
    
24.         }
    
25.     }
    
26. 
    
27.     {
    
28.       package Line;
    
29.       use Moose;
    
30. 
    
31.       # And the same for end
    
32.       has ['start', 'end'] => (
    
33.           isa => 'Point::OrHashRef',
    
34.           coerce => 1,
    
35.           is => 'rw',
    
36.           required => 1,
    
37.           trigger => sub {
    
38.               $_[0]->_clear_length();
    
39.               return;
    
40.           }
    
41.       );
    
42. 
    
43.       has 'length' => (
    
44.           isa => 'Num',
    
45.           is => 'ro',
    
46.           clearer => '_clear_length',
    
47.           lazy => 1,
    
48.           default => sub {
    
49.               return $_[0]->start->distance( $_[0]->end );
    
50.           }
    
51.       );
    
52.     }
    
53. 
    
54. 
    
55.     use Test::More;
    
56. 
    
57.     my $line = Line->new(
    
58.         start => { x => 1, y => 1 },
    
59.         end => Point->new( x => 2, y => 2 )
    
60.     );
    
61.     isa_ok $line, "Line";
    
62.     isa_ok $line->start, "Point";
    
63.     isa_ok $line->end, "Point";
    
64.     like $line->length, qr/^1.4142135623731/;
    
65. 
    
66.     $line->end({ x => 3, y => 3 });
    
67.     like $line->length, qr/^2.82842712474619/, "length is rederived";
    
68. 
    
69.     done_testing;

复制代码

一、弄懂distance函数是如何实现计算两点间的距离的。
1.1将代码简化为：

1. 
   
2. 
   
3.     package Point;
   
4.     use Moose;
   
5. 
   
6.     has 'x' => ( isa => 'Int', is => 'rw' );
   
7.     has 'y' => ( isa => 'Int', is => 'rw' );
   
8. 
   
9.     sub distance {
   
10.         my ( $_, $p ) = @_;
    
11.         #对应例子$p1->distance($p2);
    
12.         #$_->{x}即$p1 = Point->new( x => 4, ... );
    
13.         #$p->{x}即$p2 = Point->new( x => 1, ... );
    
14.         my ( $dx, $dy ) = ( $_->{x} - $p->{x}, $_->{y} - $p->{y} );
    
15.         return sqrt( $dx * $dx + $dy * $dy );
    
16.     }
    
17. 
    
18.     package main;
    
19.     my $p1 = Point->new( x => 4, y => 5 );
    
20.     my $p2 = Point->new( x => 1, y => 1 );
    
21. 
    
22.     print 'p1与p2相距距离为：';
    
23.     print $p1->distance($p2);
    

复制代码

1.2将Moose实现的代码转化为传统OO辅助理解（同为网上找到的例子）：

1. 
   
2. 
   
3.     sub Point::new {
   
4.       my ($class, $x, $y) = @_;
   
5.       bless [$x, $y], $class; # Implicit return
   
6.     }
   
7.      
   
8.     sub Point::distance {
   
9.       my ($self, $from) = @_;
   
10.       #对应例子$p1->distance($p2);
    
11.       #对于传统OO的实现，$self代表$p1,$self[0]即“bless [$x, $y], $class”中的$x这不难理解了吧，同理$from即传入的$p2。
    
12.       my ($dx, $dy) = ($self[0] - $from[0], $self[1] - $from[1]);
    
13.       sqrt($dx * $dx + $dy * $dy);
    
14.     }
    
15. 
    
16.     my $p1 = Point->new(4, 5);
    
17.     my $p2 = Point->new(1, 1);
    
18.     print $p1->distance($p2);
    

复制代码

至此，Line类中length默认值$_[0]->start->distance( $_[0]->end )即为上例$p1->distance($p2)。

2.1弄明白Moose是如何实现自定义类型，并如何强制实现类型转换的。

1. 
   
2. 
   
3.     package Point;
   
4.     use Moose;
   
5.     has 'x' => ( isa => 'Int', is => 'rw' );
   
6.     has 'y' => ( isa => 'Int', is => 'rw' );
   
7. 
   
8.     #对于new(start => { x => 1, y => 1 },...)函数，我们传给第一个属性的值是个hash引用
   
9.     #但测试输出ok 1 - The object isa Point，转变为了Point对象类型。
   
10.     use Moose::Util::TypeConstraints;
    
11.     #自定义既可以是Point对象类型又可以是HashRef的数据类型，并命名为Point::OrHashRef
    
12.     subtype 'Point::OrHashRef', as 'Point';
    
13.     #将hash引用($hash={ x => 1, y => 1 })强制转换成Point对象，通过Point->new()来实现，$_->{x}即$hash->{x}
    
14.     coerce 'Point::OrHashRef',
    
15.       from 'HashRef',
    
16.       via { Point->new( x => $_->{x}, y => $_->{y} ) };
    
17. 
    
18.     package Line;
    
19.     use Moose;
    
20. 
    
21.     has [ 'start', 'end' ] => (
    
22.         isa => 'Point::OrHashRef',
    
23.         coerce => 1,
    
24.         is => 'rw'
    
25.     );
    
26. 
    
27.     package main;
    
28.     use Test::More;
    
29.     my $line = Line->new(
    
30.         start => { x => 1, y => 1 },
    
31.         end => Point->new( x => 2, y => 2 )
    
32.     );
    
33.     isa_ok $line->start, "Point";
    
34.     isa_ok $line->end, "Point";
    

复制代码

kggg

has 的语法哪里有介绍啊

zhlong8

回复 2# kggg


    https://metacpan.org/pod/Moose#EXPORTED-FUNCTIONS

ttcn_cu

回复 3# zhlong8


    现在大概有多少组织/公司在用Moose，
Perl6已经支持OO了，为啥不直接用Perl6？