Moose: Porovnání verzí
Smazaný obsah Přidaný obsah
02. atributy |
02. Attributy |
||
Řádek 29:
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
<source lang='perl'>
Řádek 37:
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 ===
Řádek 53 ⟶ 55:
#! /usr/bin/perl
use Modern::Perl;
use utf8;
binmode STDOUT, ':utf8';
Řádek 104 ⟶ 106:
#! /usr/bin/perl
use Modern::Perl;
use utf8;
binmode STDOUT, ':utf8';
Řádek 113 ⟶ 115:
has 'jméno', is=>'ro', isa=>'Str';
has 'věk', is=>'rw', isa=>'Int';
has 'dieta', is=>'rw';
}
Řádek 119 ⟶ 121:
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'>
| |||