Update - L<link|http://www.reddit.com/r/pics/comments/kkcc6/update/>


Image

TITLE

DESCRIPTION

comment

=begin comment :src
{
  "via": {
    "name": "Bookmarklet",
    "url": "http://friendfeed.com/share/bookmarklet"
  },
  "from": {
    "type": "user",
    "id": "zag",
    "name": "углы «Исимуры»"
  },
  "body": "Update - <a rel=\"nofollow\" href=\"http://www.reddit.com/r/pics/comments/kkcc6/update/\" title=\"http://www.reddit.com/r/pics/comments/kkcc6/update/\">http://www.reddit.com/r...</a>",
  "rawLink": "http://www.reddit.com/r/pics/comments/kkcc6/update/",
  "likes": [
    {
      "date": "2011-09-21T07:54:21Z",
      "from": {
        "name": "Николай",
        "type": "user",
        "id": "mishin"
      }
    },
    {
      "from": {
        "name": "ptzn",
        "id": "ptzn",
        "type": "user"
      },
      "date": "2011-09-21T07:10:11Z"
    },
    {
      "from": {
        "name": "DehajEuj2",
        "type": "user",
        "id": "zabdetud"
      },
      "date": "2011-09-21T07:09:06Z"
    }
  ],
  "id": "e/7093a0ba214f4103ab547d68f640d142",
  "date": "2011-09-21T07:07:14Z",
  "rawBody": "Update",
  "url": "http://friendfeed.com/zag/7093a0ba/update",
  "thumbnails": [
    {
      "height": 172,
      "link": "http://www.reddit.com/r/pics/comments/kkcc6/update/",
      "url": "http://m.friendfeed-media.com/3e0a39bcaa4590e2ed0802f2cab4c1b1a37f6e23",
      "width": 525
    }
  ]
}
=end comment


root

Update


Google+: 92, 93, 94, 95, 96, 97, 98, 99... 100. - L<link|http://gplusproject.appspot.com/static/ru-92011.html>


+ВидеоВстречи: мобильнее, неожиданнее, интереснее


item

+Поиск: находите людей и записи, которые вас интересуют


Google+: 92, 93, 94, 95, 96, 97, 98, 99... 100.


=begin comment :src
{
  "via": {
    "name": "Bookmarklet",
    "url": "http://friendfeed.com/share/bookmarklet"
  },
  "from": {
    "name": "углы «Исимуры»",
    "type": "user",
    "id": "zag"
  },
  "comments": [
    {
      "via": {
        "name": "Bookmarklet",
        "url": "http://friendfeed.com/share/bookmarklet"
      },
      "id": "e/e08da2dd3bc94f20a00df5d3ca40322a/c/6b5377c7a83f4871a97a19e1627b6f5b",
      "date": "2011-09-21T10:24:04Z",
      "from": {
        "name": "углы «Исимуры»",
        "type": "user",
        "id": "zag"
      },
      "rawBody": "+ВидеоВстречи: мобильнее, неожиданнее, интереснее",
      "body": "+ВидеоВстречи: мобильнее, неожиданнее, интереснее"
    },
    {
      "body": "+Поиск: находите людей и записи, которые вас интересуют",
      "from": {
        "name": "углы «Исимуры»",
        "id": "zag",
        "type": "user"
      },
      "rawBody": "+Поиск: находите людей и записи, которые вас интересуют",
      "id": "e/e08da2dd3bc94f20a00df5d3ca40322a/c/ddbd6a88e68f45af8c559afb8c474a64",
      "date": "2011-09-21T10:26:19Z"
    }
  ],
  "id": "e/e08da2dd3bc94f20a00df5d3ca40322a",
  "date": "2011-09-21T10:24:04Z",
  "rawBody": "Google+: 92, 93, 94, 95, 96, 97, 98, 99... 100.",
  "thumbnails": [
    {
      "width": 329,
      "url": "http://m.friendfeed-media.com/46f2dc2879a27b609dfcd2ea392c791a9526309a",
      "link": "http://gplusproject.appspot.com/static/ru-92011.html",
      "height": 175
    },
    {
      "height": 175,
      "link": "http://gplusproject.appspot.com/static/ru-92011.html",
      "url": "http://m.friendfeed-media.com/252cb8c5c9408944238eac5675d713c75f0743e8",
      "width": 431
    },
    {
      "width": 525,
      "url": "http://m.friendfeed-media.com/5a2414df717244d153dbc46342b7dd1863f18719",
      "height": 161,
      "link": "http://gplusproject.appspot.com/static/ru-92011.html"
    }
  ],
  "url": "http://friendfeed.com/zag/e08da2dd/google-92-93-94-95-96-97-98-99-100",
  "body": "Google+: 92, 93, 94, 95, 96, 97, 98, 99... 100. - <a rel=\"nofollow\" href=\"http://gplusproject.appspot.com/static/ru-92011.html\" title=\"http://gplusproject.appspot.com/static/ru-92011.html\">http://gplusproject.appspot.com/static...</a>",
  "rawLink": "http://gplusproject.appspot.com/static/ru-92011.html"
}
=end comment


Perl 6, как и много других языков, использует ключевое слово C<class> для определения нового класса. Следующий затем блок, как и любой другой блок, может содержать произвольный код, однако классы обычно содержат определения состояний и поведения.


Все о Perl 6: Классы и Объекты 


Следующая программа показывает как может выглядеть обработчик 
зависимостей в Perl 6. Она демонстрирует использование пользовательских
конструкторов, приватных и публичных атрибутов, методов, а также 
некоторые аспекты сигнатур. Кода в примере приведено не много,
тем не менее он интересен и местами полезен.    


code

=begin code 

    class Task { 
        has      &!callback;
        has Task @!dependencies;
        has Bool $.done;

        method new(&callback, Task *@dependencies)  {
            return self.bless(*, :&callback, :@dependencies);
        }

        method add-dependency(Task $dependency) {
            push @!dependencies, $dependency;
        }

        method perform() {
            unless $!done {
                .perform() for @!dependencies;
                &!callback();
                $!done = True;
            }
        }
    }

    my $eat =
        Task.new({ say 'eating dinner. NOM!' },
            Task.new({ say 'making dinner' },
                Task.new({ say 'buying food' },
                    Task.new({ say 'making some money' }),
                    Task.new({ say 'going to the store' })
                ),
                Task.new({ say 'cleaning kitchen' })
            )
        );

    $eat.perform();

=end code 


Приступая к изучению классов


head

Код примера содержит атрибуты (состояния), определяемые с помощью ключевого слова C<has>, и поведения, определяемые с помощью C<method>.


Определение класса создает I<объект-тип>, который по умолчанию становиться
доступным внутри текущего пакета ( аналогично переменным, определенным с 
помощью C<our> ). Этот объект-тип является "пустым экземпляром" класса.
С ними мы встречались в предыдущих главах. Например, каждый из типов C<Int>
и C<Str> относятся к объектам-типам одного из встроенных в Perl 6 классов.
Код примера в начале главы демонстрирует, как имя класса C<Task> может 
использоваться в роли ссылки в дальнейшем, например для создания экземпляров класса вызывая метод C<new>.


Объекты-типы не определены в том смысле, что они возвращают значение C<False>
если вызвать их метод C<.defined>. Эту особенность можно использовать чтобы узнать является ли какой-либо объект объектом-типом или нет:


=begin code 

    my $obj = Int;
    if $obj.defined {
        say "Ordinary, defined object";
    } else {
        say "Type object";
    }

=end code


L<Далее ...|http://writeat.com/zag/perl6-book/html-chunk/ch05.html>


Эта статья входит в книгу "L<Все о Perl 6|http://zag.ru/perl6-book/>".
