Acme-PM-Barcelona

 view release on metacpan or  search on metacpan

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

=head3 Programar amb Flickr::Upload

Però també es pot utilitzar des d'un programa que
permeti triar amb més flexibilitat com voleu etiquetar
les vostres fotos.

  use Flickr::Upload;

  $ua = Flickr::Upload->new({
    'key'    => $key,
    'secret' => $secret,
  });

  $ua->upload(
    'auth_token' => $auth_token,
    'photo'      => 'barcelona-pm.jpg',
    'tags'       => 'barcelona.pm',
    'is_public'  => 1,
    'is_friend'  => 1,
    'is_family'  => 1,
  );

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

=item * El nom és una conya que ve de l'anglès. Es tracta d'usar el
mínim nombre de B<(key)strokes>. Seguint amb l'analogia, als
problemes en golf se'ls anomena B<holes>.

=item * Normalment es juga a golf en torneigs.

=back

=head3 Forat 1

Redueix un nombre enter al seu nombre secret:

  #!/usr/bin/perl -l
  print while+s/./hex($`%10+$&)%15/eg^s//pop/e

  $ forat1.pl 123456
  123456
  35792
  8372
  219
  31

lib/Acme/PM/Barcelona/Meeting.pm  view on Meta::CPAN

sub new {
    my $class = shift;

    # every last Thu of the month at 20:00
    my $self = DateTime::Event::ICal->recur(
        dtstart  => DateTime->now,
        freq     => 'monthly',
        byday    => [ "-1th" ],
        byhour   => [ 20 ],
        byminute => [ 0 ],
        bysecond => [ 0 ],
    );

    bless $self, $class;
}


1; # End of Acme::PM::Barcelona::Meeting

__END__

t/meeting.t  view on Meta::CPAN

    my $barcelona_pm = Acme::PM::Barcelona::Meeting->new();
    isa_ok( $barcelona_pm, 'Acme::PM::Barcelona::Meeting' );

    # every last Thu of the month at 20:00:00
    my $dt_set = DateTime::Event::ICal->recur(
        dtstart  => DateTime->now(),
        freq     => 'monthly',
        byday    => [ '-1th' ],
        byhour   => [ 20 ],
        byminute => [ 0 ],
        bysecond => [ 0 ],
    );

    is_deeply( $barcelona_pm, $dt_set, "next meeting verified" );
}