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 6574×

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ů

8.5.2016 17:19 /Redakce Linuxsoft.cz
PR: Dne 26.5.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í, cloudové služby, infrastruktura cloudu, efektivní využití cloudu, možné nástrahy cloudů a jak se jim vyhnout
Přidat komentář

21.4.2016 8:01 /František Kučera
Spolek OpenAlt zve na 127. distribuovaný sraz příznivců svobodného softwaru a otevřených technologií (hardware, 3D tisk, SDR, DIY, makers…), který se bude konat ve čtvrtek 28. dubna od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5).
Přidat komentář

2.3.2016 22:41 /Ondřej Čečák
Letošní ročník konference InstallFest již tento víkend!
Přidat komentář

14.2.2016 16:39 /Redakce Linuxsoft.cz
O víkendu 5. a 6. března 2016 proběhne na pražském Strahově 8. ročník tradiční konference InstallFest. Celkem za dva dny uvidíte ​30 přednášek​ a ​6 workshopů.
Přidat komentář

5.2.2016 17:38 /Petr Ježek
Utilitka z XFce "xfce4-power-manager" nejen umožňuje nastavení lhůty pro uspání či hybernaci, ale i zapínání a vypínání prezentačního módu pro nerušené sledování videí. Stačí ji nastavit v každém vybavenějším panelu a v jakémkoli nontiled WM/DE.
Přidat komentář

10.1.2016 11:32 /Pavel `Goldenfish' Kysilka
LinuxMarket změnil provozovatele. Nově jej provozuje Marek Pszczolka. Více info a detaily #1 a #2.
Přidat komentář

29.12.2015 11:38 /Ondřej Čečák
Ještě posledních pár dní můžete přidávat příspěvky nebo nápady na Install Fest 2016, který se bude konat 5. a 6. března 2016.
Přidat komentář

8.12.2015 11:36 /Petr Ježek
Logické se stává realitou. LibreOffice a Thunderbird se mají dle článku na Redditu stát protiváhou MS řešení (MS Office a Outlook).
Přidat komentář

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

> Poslední diskuze

10.6.2016 21:10 / pavel riha
FreeBSD 10.3 a virtualizace

8.6.2016 21:56 / Milan Gallas
Nevalidní prefix m

7.5.2016 14:58 / Teodor Komárek
Soubory

20.4.2016 0:07 / Jakub Cleing
Sázkový panel PHP FUSION

9.4.2016 9:43 / jiwopene@gmail.com
Re: problém s dpkg a nemožností instalovat

Více ...

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