use Moose;

our $VERSION = '20110109';

has 'email' => (is => 'ro', default => sub { join('', 'fayland', '@', 'gmail', '.', 'com') });

has 'blog' => (is => 'rw', default => 'http://fayland.me/');

has 'CPAN' => (default => 'http://search.cpan.org/~fayland/');

has 'github' => (default => 'https://github.com/fayland');

sub welcome {

<<Introduction;

Yup, I'm fayland. Welcome 2 my site. Enjoy!
欢迎来访。此为 fayland 的个人站点。

A Chinese guy who love Perl only less than his girl.
喜欢用 Perl 做所有可能的事。

}