mojolicious源碼

b4and5

小弟準(zhǔn)備開始看mojolicious的源碼學(xué)習(xí)學(xué)習(xí)，
可是剛打開Mojolicious.pm就蒙了...

1. package Mojolicious;
   
2. use Mojo::Base 'Mojo';
   
3. 
   
4. # "Fry: Shut up and take my money!"
   
5. use Carp ();
   
6. use Mojo::Exception;
   
7. use Mojo::Util;
   
8. use Mojolicious::Commands;
   
9. use Mojolicious::Controller;
   
10. use Mojolicious::Plugins;
    
11. use Mojolicious::Renderer;
    
12. use Mojolicious::Routes;
    
13. use Mojolicious::Sessions;
    
14. use Mojolicious::Static;
    
15. use Mojolicious::Types;
    
16. use Mojolicious::Validator;
    
17. use Scalar::Util ();
    
18. use Time::HiRes  ();
    
19. 
    
20. has commands => sub {
    
21.   my $commands = Mojolicious::Commands->new(app => shift);
    
22.   Scalar::Util::weaken $commands->{app};
    
23.   return $commands;
    
24. };
    
25. has controller_class => 'Mojolicious::Controller';
    
26. has mode => sub { $ENV{MOJO_MODE} || $ENV{PLACK_ENV} || 'development' };
    
27. has moniker  => sub { Mojo::Util::decamelize ref shift };
    
28. has plugins  => sub { Mojolicious::Plugins->new };
    
29. has renderer => sub { Mojolicious::Renderer->new };
    
30. has routes   => sub { Mojolicious::Routes->new };
    
31. has secrets  => sub {
    
32.   my $self = shift;

復(fù)制代碼

這里的has是什么用法....
網(wǎng)上找了半天也沒找到，去找object oriented perl也沒找到....
麻煩賜教....
謝謝

bikong0411

順著use去找has

zhlong8

has 用來聲明對象的屬性，這個動詞源自 Moose 模塊，而它又源自 Perl6。

Mojolicious 中的 has 是作者自己定義的一個函數(shù)意思類似，在 Mojo::Base 模塊中。里面有大量元編程你估計還看不懂，用法(不同于Moose)是

1. has '屬性名' => 默認(rèn)值;
   
2. $obj->屬性名()  可以獲得屬性的值如果沒有預(yù)先設(shè)置則返回默認(rèn)值（如果是個函數(shù)引用則是調(diào)用這個函數(shù)的返回值 $default->($obj) ）
   
3. $obj->屬性名(新的值)  改變屬性的值

復(fù)制代碼

nixiaoweihunter

回復(fù) 3# zhlong8

哪里有元編程的資料？

   

b4and5

回復(fù) 3# zhlong8

哇，一下子學(xué)到好多...謝謝版大

   

zhlong8

回復(fù) 4# nixiaoweihunter


http://perldoc.perl.org/perlmod.html
http://perldoc.perl.org/perlref.html