Moose: Porovnání verzí
Smazaný obsah Přidaný obsah
Instalace |
01 |
||
Řádek 28:
</source>
můžeme (pro legraci) používat i české názvy proměnných i s diakritikou (pro vážné programování bych to ale asi nedoporučoval).
Z nějakých důvodů to ale s Diakritikou nefunguje v případě, že tak nazveme třídu; příkaz
<source lang='perl'>
package Kočka
</source>
vyvolá chybu:
Kočka is not a module name at /usr/lib/perl5/Class/MOP/Package.pm line 207.
BEGIN failed--compilation aborted at ./07.01Kocka.pl line 9.
=== 01 ===
<source lang='perl'>▼
Tak tedy, vytvoříme si ''třídu'' koček, které umí mňoukat, a dvě její ''instance'', Lízu a Mňauka, které pak z mňoukání vyzkoušíme:
▲<source lang='perl' line>
#! /usr/bin/perl
Modern::Perl;
use utf8;
binmode STDOUT, ':utf8';
package Kocka
{
use Moose;
sub mňau
{
my $self = shift;
say 'Mňau!';
}
}
my $Líza = Kocka->new();
my $Mňouk = Kocka->new();
$Líza->mňau();
$Mňouk->mňau();
</source>
*
<source lang='perl'>
| |||