From 3d2c1438c8b09f234980e17e776f83b3c825e089 Mon Sep 17 00:00:00 2001 From: Karchnu Date: Wed, 25 Jul 2012 01:01:40 +0200 Subject: [PATCH] Minor changes, add 2 functions just to clarify the code --- perl/antipixel/.MyWrapper.pm.swp | Bin 12288 -> 12288 bytes perl/antipixel/.lanceur.pl.swp | Bin 12288 -> 0 bytes perl/antipixel/MyWrapper.pm | 65 +++++++++++++++++++++++-------- perl/antipixel/lanceur.pl | 2 +- 4 files changed, 49 insertions(+), 18 deletions(-) delete mode 100644 perl/antipixel/.lanceur.pl.swp mode change 100644 => 100755 perl/antipixel/lanceur.pl diff --git a/perl/antipixel/.MyWrapper.pm.swp b/perl/antipixel/.MyWrapper.pm.swp index 8feec9c563aabf00b3872a97322ee30cb66e09cf..ffffdefa8d9b0fa7783cf8c2bfc8f20f5b9a4bb5 100644 GIT binary patch literal 12288 zcmeI2O=u)V6vrzH>Zt23x<|pv?1WBaJ~BxLB}2l>E{bSS5OsHDGxYS-%(Ut09;&*N z8HV*BsEAijf~+VAig@s#H$MoTR`B3q5j=QM@ZwcOSk`}4SIy2>65L~~Ccnu{y;twO z`q!&&NT$C0($ib?vEnMhb&8O?vnQXwI=4>#+9YJh6|f3e1*`&A0jq#j;J7Lfcjw4WEbb2Q z0+`d_m%Xe4RspMkRlq7>6|f3e1*`&A0jq#jz$#!BI3^0X4MM)Vi;($yups>ZU;Yi? z&y$4w4t@sLz&GGa@DcbBGywzWK?ytpetUqBU%^-4J@7Wz2A4n?oCbG->n8~L349E$ zfB-xJHo(K+@B0b)1N;cCfltAkU>9tIOW;Xx4&=dUaN|DA0Y88*z~|sI@Gf{AY=cL^ zje80C2ke7y!Pnq@@D6B!Rd6#y$oJqX=z~4511^FJSOcfPFVO2P@CF!wHh2a&U;*TS z()5`0iCujo_0qUL&W!h(Q_D#@Ig zbn>D^c~KZUeX7iKgNnA_jH^T>b;^^F4rF}c_G$JUi(^LhEE+nj=L-yUT|wuwGzpPL zP&FuM&IBLmton0}^7DD4n{W-WEs+iCGA2^-`7 z)Aq@kTDsZOv~hBdA1b+L&(TIRXX{W|XDfDa$E7l&chY@+)*W_EZin?Ll-5PP8u{U( zlcx^N)3Z5rZo-yO(tu?4+J3+msoE+zCr`B*TgF_keQTGO#=A+3hNe0;B8ZV06gh6Y zQHIMNwwXF6vavEP?hCrHNna_iE$69uxeQA^a6?a-Rw|V|H7}R*u!WJ&l?ij?j~d)% zJT`;MI~_*%p!;QtbkMlti@J$%M+_Kclz}?RwR++QjhYt)5tl8Vks4{M?&AI@_&#);aJGbyX6@4_ zc(NvRu-4(os#LE`l_izFwHu}^eU4|8VvhghZv2NbSTa=wn^}dv1I?(y+_-ML3UkBX z|A3m4hoZ2Ej2Jd*XRIhaW26`pW4Z{^#uIFKkjLy10;q$-)Zui-PLV^=(j*a#Zbi|B z_4Vh}5x}EX52bG^#qwHlC4Il=^3V@k+C{|N_wb~Z?oXYsk}jSM^07AjQhk;D3y8P5 ABme*a delta 712 zcmZ|JJ!lhQ7zgm@nn<~(HWyo{*01NTh2(PPk~C@|XA3Tc4k`#OF4}xuGaqNb>;M2wBKN|b0G{*Dmszy{ocEQI0n zQKC=q5w@WVFW@oM;Raj+4bH$RP+)hM=o@^6x3B@zu#4%xzz#f%P>!BrvkX(9!ErbO ze=zEA`1OD6C#VY`4|S#RxIC7%h#r#c7gt%kzIc^YRn#-)++v-M=0@TD%=xLt7Pt>2X!J$i3IBxeX4Q!6ON-^=jO^k06Ok Nx)i!-X2gf|%s=|Oox%VB diff --git a/perl/antipixel/.lanceur.pl.swp b/perl/antipixel/.lanceur.pl.swp deleted file mode 100644 index af76ec11f5534bd4c5c6f2923022dfe3a04d1509..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 12288 zcmeI&Jx;?g6bJBE7FhTYT)+he7*dxO38VrNBSXamj8z&8wMZS~kA^NFaR&~=$_+RH zJ6r;%q^iV_5vk~J>B)Nbvt|FbDDF2e&${fO(WcPWhO?Aq;WitJ$lJJ|ipVBLYG=6?CgrhmQp*RC@-$Y7@TQ^D%B?X8 z0SHtHcy|*WE>pX;*DT7mHtTF-{i13G<{$t82tWV=5P$##AOL}XCg609p2D3L%6l!9 zeeG9YrsyC50SG_<0uX=z1Rwwb2tWV=5ST-O_?l>cl}Lvu{{K(E|Gz^15#l|>TZoqs z&mrzZOls%wt~fFTAOHafKmY;|fB*y_009U<;LilMa}(?E$UQnSUhV95Xg1)4b+#B9 zj@fjS9kcHEYPv*;yq8Ni=w;f;OihZt6|<5K6=@zDCDpC{$*eOnaUI&Kb8ijrOT~p6 JvErdUqi>* ( is => 'ro', builder => '_build_colors' ); - -option mess => ( is => 'rw', - doc => 'message', format => 's', default => sub { 'message à afficher' } ); +option message => ( is => 'rw', + doc => 'message', + short => 'm', + format => 's', default => sub { 'message à afficher' } + ); option couleur_externe => ( is => 'rw', - doc => 'couleur externe', format => 's', default => sub { 'bleu' }); + doc => 'couleur externe', + short => 'ce', + format => 's', default => sub { 'bleu' } + ); option couleur_interne => ( is => 'rw', - doc => 'couleur interne', format => 's' ); + doc => 'couleur interne', + short => 'ci', + format => 's', default => sub { 'blanc' } + ); option couleur_background => ( is => 'rw' , - doc => 'couleur du fond (écriture)', format => 's'); - - + doc => 'couleur du fond (écriture)', + short => 'cb', + format => 's', default => sub { 'noir' } + ); +option taille_x => ( is => 'rw', + doc => 'taille X', format => 'i', + short => 'x', + default => sub { 150 } + ); +option taille_y => ( is => 'rw', + doc => 'taille Y', format => 'i', + short => 'y', + default => sub { 50 } + ); sub _build_colors { { bleu => [0, 0, 255], @@ -29,24 +48,36 @@ sub _build_colors { gris => [140, 140, 140] }; } -sub tests { +sub afficher_couleurs { my ($self) = @_; my %couleurs = %{$self->couleurs}; - - say "mess : " . $self->mess; - say "couleur_externe : " . $self->couleur_externe; - say "Cette couleur n'existe pas !" unless exists $couleurs{$self->couleur_externe}; say "couleurs : " . join( ', ' , keys %couleurs) ; while( my ($key , $value) = each %couleurs) { say "La couleur $key est : " . join(', ' , @$value); } -# say "couleur_interne : " . $self->couleur_interne; -# say "couleur_background : " . $self->couleur_background; +} +sub afficher_valeurs_actuelles { + my ($self) = @_; + say "Message : " . $self->message; + say "couleur_interne : " . $self->couleur_interne; + say "couleur_externe : " . $self->couleur_externe; + say "couleur_background : " . $self->couleur_background; + say "taille_x : " . $self->taille_x; + say "taille_y : " . $self->taille_y; +} +sub tests { + my ($self) = @_; + my %couleurs = %{$self->couleurs}; + + say "message : " . $self->message; + say "couleur_externe : " . $self->couleur_externe; + say "Cette couleur n'existe pas !" unless exists $couleurs{$self->couleur_externe}; } sub run { my $self = shift; - say "RUN !!!"; + #$self->afficher_couleurs ; + $self->afficher_valeurs_actuelles; } 1; diff --git a/perl/antipixel/lanceur.pl b/perl/antipixel/lanceur.pl old mode 100644 new mode 100755 index 07d7288..1c913b3 --- a/perl/antipixel/lanceur.pl +++ b/perl/antipixel/lanceur.pl @@ -3,6 +3,6 @@ use strict; use warnings; use MyWrapper; my $wrapper = MyWrapper->new_with_options(); -$wrapper->tests(); +#$wrapper->tests(); $wrapper->run();