Moose: Porovnání verzí

Přidáno 710 bajtů ,  před 9 lety
01
(Instalace)
(01)
</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'>
11 978

editací