Moose: Porovnání verzí

Přidáno 239 bajtů ,  před 9 lety
02. Attributy
(02. atributy)
(02. Attributy)
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 Diakritikoudiakritikou nefunguje v případě, že tak nazveme třídu; příkaz
 
<source lang='perl'>
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.
 
Nejspíš se jedná o bug – viz [http://perldoc.perl.org/utf8.html Pragmas > utf8] až na konci: Bugs.
 
=== 01 Stvoření koček ===
#! /usr/bin/perl
 
use Modern::Perl;
use utf8;
binmode STDOUT, ':utf8';
#! /usr/bin/perl
 
use Modern::Perl;
use utf8;
binmode STDOUT, ':utf8';
 
has 'jméno', is=>'ro', isa=>'Str';
has 'věk', is=>'rw', isa=>'Int';
has 'dieta', is=>'rw';
}
my $tlusťoch = Kocka->new(jméno=>'Tlusťoch', věk=8, dieta=>'produkty moře');
 
say $tlusťoch->jméno(), ', ', $tlusťoch->věk(), ' let, dieta: ', $tlusťoch->dieta();
 
$tlusťoch->dieta( 'neslaná');
say $tlusťoch->jméno(), ', ', $tlusťoch->věk(), ' let, nová dieta: ', $tlusťoch->dieta();
</source>
 
Výstup programu:
<pre>
Tlusťoch, 8 let, dieta: produkty moře
Tlusťoch, 8 let, nová dieta: neslaná
</pre>
 
<source lang='perl'>
11 978

editací