LINUXSOFT.cz Přeskoč levou lištu
Uživatel: Heslo:  
   CZUKPL

> Perl (108) - Moose - základní vlastnosti

Perl Moose poskytuje automatické vytváření některých druhů metod. Díky tomu mohou být naše programy podstatně přehlednější. Také nahlédneme, jak se v Moose řeší dědičnost, delegování a k čemu jsou tzv. modifikátory.

20.4.2010 00:00 | Jiří Václavík | Články autora | přečteno 7185×

Posledně jsme zabývali vytvářením nových atributů. Moose atributy definuje pomocí klíčového slova has. Modifikacemi ve volání lze provádět různé činnosti jako například vytváření nových metod.

V klasickém OOP jsme si museli každou metodu napsat sami, ačkoliv byla sebetriviálnější. V aplikacích jsme například často potřebovali napsat metodu, která pouze vrací nějaký atribut. To je úkol, o kterém by se asi nezasvěcení domnívali, že ho řešit nemusí, protože ho zvládne objektový systém.

My jsme byli v klasickém OOP schopni přistupovat k atributům přímo, avšak tento postup jsme zavrhli. Pokud jsme problém chtěli řešit pomocí metod, museli jsme si je napsat sami.

Existují moduly, které tyto rutinní činnosti udělají za nás (a jak dnes uvidíme dále, nemusí jít pouze o čtení atributů). Moose mezi ně samozřejmě patří také. Představme si tedy metody, které Moose dokáže automaticky vygenerovat.

Metody pro čtení a zápis atributů

Již jsme si řekli, že jedním ze základních problémů v téměř každé třídě je to, jak atributům nastavovat hodnoty a jak je číst, aniž bychom museli psát příslušné metody.

Zde je jedna možnost. Využijeme již předdefinovaných metod, které mají stejný název jako atribut.

$a = MojeTrida->new;
$a->nazev("ahoj");
print $a->nazev; #tiskne ahoj

O nic jsme se v souvislosti s těmito metodami nemuseli starat.

Totéž lze zařídit také pomocí metod reader a writer. Pomocí nich si můžeme pro metody určit vlastní jména. Příklad změny definice atributu nazev tak, abychom získali metody get_nazev pro přečtení hodnoty a set_nazev pro nastavení hodnoty je zde.

has "nazev" => (
    is => "rw",
    isa => "Str",
    reader => "get_nazev",
    writer => "set_nazev"
);

Nyní můžeme vytvořit objekt a pracovat s ním.

$objekt = MojeTrida->new;
$objekt->set_nazev("ahoj");
print $a->get_nazev; #tiskne ahoj

Další automaticky vytvářené metody

Pomocí přidání položky default=>"hodnota" můžeme nastavit implicitní hodnotu atributu. To znamená, že nastavíme atribut na nějakou výchozí hodnotu a ta bude platná, dokud ji uživatel nezmění.

has "nazev" => (
    ...
    default=>"hodnota"
);

Místo implicitní hodnoty lze nastavit také volání anonymního podprogramu (nebo dokonce i neanonymního, avšak to už musíme použít místo default položku builder). Pak bude hodnotou atributu vrácená hodnota. Taktéž můžeme pomocí lazy=>1 udělat to, aby se implicitní hodnota hodnota nastavila až před prvním čtením.

Pokud tedy vytvoříme atribut s implicitní hodnotou, a pak vytvoříme objekt, můžeme vidět, že jeho daný atribut je již nastaven.

my $objekt = MojeTrida->new();
print $objekt->get_nazev; #tiskne "hodnota"

Metodou určenou pomocí clearer smažeme atribut. Naopak pomocí predicate můžeme nastavit detektor atributu. Uveďme si ještě jednou, jak by vypadalo volání has.

has "nazev" => (
    ...
    clearer=>"unset_nazev",
    predicate=>"je_nazev"
);

Pomocí require=>1 lze nastavit atribut jako povinný.

Lze vytvořit trigger pomocí trigger=>\&spoustec. Trigger spoustec je podprogram, který se provede po každém přenastavení hodnoty atributu.

Ručně vytvářené metody

Ostatní metody lze vytvářet stejně jako v klasickém OOP pomocí klíčového slova sub.

Dědičnost

Při práci s Moose je lepší nepoužívat pragmu base. Zavádí se zde nově klíčové slovo extends, které použijeme v třídách upravujících nějakou starší třídu (tj. nastavuje nadtřídu). Použití je intuitivní.

package Clovek;
use Moose;
extends "Organizmus";

Pak můžeme upravovat atributy.

has "+pocet_nohou" => (
      default => 2,
      lazy    => 1
);

Modifikátory metod

Kód, který se spustí v souvislosti s voláním metody, se nazývá modifikátor. Je několik druhů modifikátorů. Nejprve si představme modifikátory before, after, a around.

Například následující modifikátor zálohuje data před voláním metody uprav_data.

before "uprav_data" => sub {
    zalohuj_data();
};

V případě, že použijeme více modifikátorů, volají se v následujícím pořadí.

  • before
  • around
  • samotná metoda
  • around
  • after

Volání dědící metody - obrácené dědění

Dále existuje modifikátor augment a funkce inner, které umožňují něco jako obrácené dědění.Funguje to tak, že v nadtřídě voláme jistou metodu podtřídy, která je v ní definována pro tento účel (děje se tak pomocí augment). Pokud nadtřída vytvoří nějakou metodu, pak ji tedy můžeme pomocí augment modifikovat. Podívejme se na jednoduchý příklad.

package HTMLSablona;
sub generator {
    return "<html><head></head><body>".inner()."</body></html>";
}

package MujWeb;
extends "HTMLSablona";
augment "generator" => sub {
    return "<h1>Ahoj!</h1>";
}

Překrývání metod

Pomocí modifikátoru override lze překrýt hierarchicky vyšší metodu. Pomocí funkce super lze uvnitř override zavolat metodu z nadtřídy, od které se dědí (funguje podobně jako SUPER).

Podívejme se na příklad. Překryjeme metodu specificke_vlastnosti z třídy Clovek. Ta vrací nějaký řetězec (například "dvě ruce, dvě nohy, schopnost řeči"). Na jeho konec přidáme specifické vlastnosti pro nějakou blíže určenou rasu. Pomocí funkce super zde získáme výstup hierarchivcky vyšší metody. Výsledkem bude zkombinování těchto řetězců.

package MongoloidniTypCloveka;
extends "Clovek";

override "specificke_vlastnosti" => sub {
    my $self = shift;
    return super().", tmave vlasy, sikme oci".$self->poznavaci_znameni;
};

#zde mohou byt definovany nove atributy

Delegace

Delegování je něco jako vytváření virtuálních metod. Pomocí delegování lze například zpřehlednit některá volání.

Při definici atributu lze použít v hashi klíč handles. Tamu můžeme předat anonymní pole nebo hash. Zde je příklad použití, díky kterému budeme moci psát $clovek->krestni místo $clovek->jmeno->krestni.

has "jmeno" => (
  is      => "rw",
  isa     => "Jmeno",
  handles => [qw(krestni prijmeni)],
);

Zde je zajímavější příklad, převzatý z dokumentace, ve kterém se pracuje i s parametry. Místo $r->request->header("UserAgent", "MyClient") voláme jen $r>set_user_agent("MyClient").

has request => (
    is      => "ro"
    isa     => "HTTP::Request",
    handles => {
        set_user_agent => [ header => "UserAgent" ]
    }
)

Verze pro tisk

pridej.cz

 

DISKUZE

Nejsou žádné diskuzní příspěvky u dané položky.



Příspívat do diskuze mohou pouze registrovaní uživatelé.
> Vyhledávání software
> Vyhledávání článků

5.3.2017 19:12 /Redakce Linuxsoft.cz
PR: 23. března proběhne v Praze konferenci na téma Cloud computing v praxi. Hlavními tématy jsou: Nejžhavější trendy v oblasti cloudu a cloudových řešení, Moderní cloudové služby, Infrastruktura současných cloudů, Efektivní využití cloudu, Nástrahy cloudových řešení a jak se jim vyhnout.
Přidat komentář

27.2.2017 22:12 /František Kučera
Pozvánka na 137. sraz OpenAlt – Praha: Tentokrát jsme si pro vás připravili neobvyklou akci. Ve středu 1.3. v 17:30 nás přivítá sdružení CZ.NIC ve svých prostorách v Milešovské ulici číslo 5 na Praze 3, kde si pro nás připravili krátkou prezentaci jejich činnosti. Následně navštívíme jejich datacentrum pod Žižkovskou věží. Provedou nás prostory, které jsou běžnému smrtelníkovi nedostupné!
Po ukončení prohlídky se všchni odebereme do hostince U vodoucha, Jagelonská 21, Praha 3 pochutnat si na některém z vybraných piv či dát si něco na zub. Rezervaci máme od 19:30, heslo je OpenAlt.
Ale pozor! Do prostor datového centra máme omezený přístup, dostane se tam pouze 10 lidí! Takže kdo přijde dříve, ten má přednost, a občanky s sebou! Kdo nebude chtít na prohlídku datového centra, může se pomalu přesunout do hostince U vodoucha a u nepřeberné nabídky piv počkat na ostatní.
Přidat komentář

18.1.2017 0:49 /František Kučera
Členové a příznivci spolku OpenAlt se pravidelně schází v Praze a Brně. Fotky z pražských srazů za uplynulý rok si můžete prohlédnout na stránkách spolku. Příští sraz se koná už 19. ledna – tentokrát je tématem ergonomie ovládání počítače – tzn. klávesnice, myši a další zařízení. Také budete mít příležitost si prohlédnout pražský hackerspace Brmlab.
Přidat komentář

8.1.2017 17:51 /František Kučera
Máš rád svobodný software a hardware nebo se o nich chceš něco dozvědět? Přijď na sraz spolku OpenAlt, který se bude konat ve čtvrtek 19. ledna od 18:30 v pražském hackerspacu Brmlab. Tentokrát je tématem srazu ergonomie ovládání počítače – tzn. klávesnice, myši a další zařízení. K vidění bude mechanická klávesnice dasKeyboard, trackball Logitech nebo grafický tablet (a velký touchpad) Wacom. Přineste i vy ukázat svoje zajímavé klávesnice a další HW. V 18:20 je sraz před budovou, v 18:30 jdeme společně dovnitř, je tedy dobré přijít včas. Podle zájmu se později přesuneme do nějaké restaurace v okolí.
Přidat komentář

1.12.2016 22:13 /František Kučera
Máš rád svobodný software a hardware nebo se o nich chceš něco dozvědět? Přijď na sraz spolku OpenAlt, který se bude konat ve čtvrtek 8. prosince od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5). Sraz bude tentokrát tématický. Bude retro! K vidění budou přístroje jako Psion 5mx nebo Palm Z22. Ze svobodného hardwaru pak Openmoko nebo čtečka WikiReader. Přijďte se i vy pochlubit svými legendami, nebo alespoň na pivo. Moderní hardware má vstup samozřejmě také povolen.
Komentářů: 1

4.9.2016 20:13 /Pavel `Goldenfish' Kysilka
PR: Dne 22.9.2016 proběhne v Praze konference Cloud computing v praxi. Tématy bude např. nejnovější trendy v oblasti cloudu a cloudových řešení, provozování ERP v cloudu, o hostování různých typů softwaru, ale třeba i o zálohování dat nabízeném podnikům formou služby.
Přidat komentář

1.9.2016 11:27 /Honza Javorek
Česká konference o Pythonu, PyCon CZ, stále hledá přednášející skrz dobrovolné přihlášky. Máte-li zajímavé téma, neváhejte a zkuste jej přihlásit, uzávěrka je již 12. září. Konference letos přijímá i přednášky v češtině a nabízí pomoc s přípravou začínajícím speakerům. Řečníci mají navíc vstup zadarmo! Více na webu.
Přidat komentář

27.8.2016 8:55 /Delujek
Dnes po 4 letech komunitního vývoje vyšla diaspora 0.6.0.0
diaspora* je open-source, distribuovaná sociální síť s důrazem na soukromý
Více v oficiálním blog-postu
Přidat komentář

   Více ...   Přidat zprávičku

> Poslední diskuze

24.3.2017 11:54 / Hui
country cottages

16.3.2017 16:33 / BezvaDesign.cz
Re: Hledám grafika do teamu

9.3.2017 11:44 / Jaromir Obr
Re: chyba

18.1.2017 20:18 / martin horky
Spolupraca linuxu a microsoftu

17.1.2017 9:57 / Pavel Hrubeš
Re: Externí USB televizní karta

Více ...

ISSN 1801-3805 | Provozovatel: Pavel Kysilka, IČ: 72868490 (2003-2017) | mail at linuxsoft dot cz | Design: www.megadesign.cz | Textová verze