view release on metacpan or  search on metacpan

lib/Acme/PM/Barcelona/12x5_ca.pod  view on Meta::CPAN

=item * un servei de notificació i seguiment d'errors

=back

=head2 Tests en Perl

=head3 Perl utilitza tests des del principi

Ja des de la primera versió de Perl, un cop construït l'executable
es verifica que es comporta com cal. El codi font de Perl inclou
un gran nombre de tests de tot tipus, que no només permeten veure
objectivament que la construcció de l'executable ha anat bé sinó
que ajudaran a detectar errors en cas que passi res.

=head3 La cultura dels tests

Aquesta filosofia d'incorporar tests va quallar molt bé des de
bon començament dins la comunitat de Perl i els autors que
publicaven mòduls amb llicència lliure de seguida es van pujar
al carro dels tests, afegint-los a les seves distribucions.

lib/Acme/PM/Barcelona/12x5_ca.pod  view on Meta::CPAN

  # segueix el primer enllac,	
  $mech->follow_link(tag => 'a', n => 1);	
  
  # captura els moviments
  ($movements) = $mech->content
      =~ m{(<ul[^>]*>\s*<li[^>]*>\s*<a.*?</ul>)}i;
  
  $mov_regexp = qr{
      <td\s+align="left"> (.+?) </td>
      .*?
      <font[^>]+> ([\d,-]+) .*? </font>
      .*?
      <li[^>]+> (\d+/\d+/\d+)
  }sx;

=for ToBeUsedInTheFuture =head3 L'extracte d'un compte de La Caixa (4)

  print "$1, $2, $3\n"
      while $movements =~ /$mov_regexp/g;
  
  # AHORRA EL CAMBIO, -2,10, 06/09/2009