AnnoCPAN Recent Notes

PDL::DSP::Fir

MiKatp — 2013-06-13T07:32:09+00:00

"These are not yet on CPAN"

Hmmm, really?

Test::Base

nglenn — 2013-06-01T22:58:35+00:00

I had to use ($self, @_) = find_my_self($self, @_); in my Test::Base subclass.

CAM::PDF

fyiman — 2013-05-30T02:44:28+00:00

Checked link on May 29 2013. Link redirects to http://www.adobe.com/devnet/pdf/pdf_reference.html.

Chart::Strip

awgrover — 2013-05-08T14:32:25+00:00

Requires libgd2-?-dev, which I found as the package libgd2-xpm-dev, e.g.: # apt-get install libgd2-xpm-dev Actually a dependency of GD.

WWW::Mechanize

etiffany — 2013-04-30T17:47:13+00:00

Actually, if the link is not found then you get an error, not undef. You need to use find_link() followed by get() if you need to test whether the link actually exists.

PDF::Create

PerlHorst — 2013-04-19T13:46:22+00:00

ZapfDingbats works fine

HTML::Clean

sforman80 — 2013-04-15T21:44:37+00:00

Note that this will destroy pre-formatted tags. Here is a workaround for this.

    if ( defined($options) ) {
        no strict 'refs';
        for ( keys(%$options) ) {
            ${ "do_" . lc($_) } = $options->{$_}
                if defined ${ "do_" . lc($_) };
        }
    }

    # strip out the pre-formatted text ahead of time, so it doesn't
    # get modified by the script below.  This will store the
    # pre-formatted strings in a hash replaced by a unique string and
    # then replace them later on in the subroutines.
    my $pre_count = 0;
    my %pre_hash  = ();
    if ($do_whitespace) {
        print STDERR "### checking pre-formatted tags\n";

        #print STDERR "### h:\n$$h\n";
        while ( $$h =~ m,(]*>)(.*?)(

),si ) { my $string = qq{$1$2$3}; my $key = qq{ZZZPRE_COUNT:$pre_count:ZZZ};

            print STDERR "Pulling:Key:$key\nstring:\n$string\n";
            $$h =~ s,$string,$key,i;
            $pre_hash{$key} = $string;
        }

and then at the end of sub strip

    # push the pre-formatted text back into the flow of the document
    # using our hash of pre_formatted items.
    if ($do_whitespace) {
        foreach my $key ( keys %pre_hash ) {
            my $string = $pre_hash{$key};
            $$h =~ s,$key,$string,;
        }
    }

mixin

ChinaXing — 2013-03-19T02:50:59+00:00

what's the deference between mixin and mixin::with

Archive::Zip

nglenn — 2013-03-06T20:38:36+00:00

Adding everything in a directory will cause each individual subdirectory and file to be a separate object later when you query memberNames(). If you instead do add addFileOrDirectory(), then a directory and its children will be just one member.

Cron

rjattrill — 2013-02-26T03:44:15+00:00

This module depends on Time::ParseDate, the tests for which are currently broken on Win32. If you are on Win32 you will need to do a 'force install Time::Modules' as a pre-requisite to installing Schedule::Cron

AnyEvent::HTTP

SAMV — 2013-02-21T01:33:35+00:00

596 is also returned if the timeout is reached before anything is read at all from the client, I have deduced.

autobox::Core

myfwhite — 2013-02-14T03:52:47+00:00

Weird...

use Test::More;

use autobox::Core;

is('*+* hello *+*'->trim("*+"), ' hello *+*','this test fails');

autobox::Core

myfwhite — 2013-02-14T03:47:46+00:00

This makes it seem like

join(" ", reverse(split(" ", $string)))

returns the same thing as

$string->split(" ")->reverse

But the two statements provided (with print) are only equivalent, because print automatically stringifies a list using $" ($LIST_SEPARATOR).

Win32::IEAutomation

lupin_sansei — 2013-02-05T12:41:35+00:00

maximise should be set to zero unless you have AutoIt3 installed, else you will get the following error: Could not start AutoItX3 Control through OLE

Win32::IEAutomation

lupin_sansei — 2013-02-05T12:25:28+00:00

maximise should be set to zero unless you have AutoIt3 installed, else you will get the following error: Could not start AutoItX3 Control through OLE

Exception::Class

ganainm — 2013-02-01T12:23:35+00:00

Assume that an ExceptionWithFields was thrown from within the eval block. According to the description of the caught method below, it "takes a class name and returns an exception object if the last thrown exception is of the given class, or a subclass of that class". Because ExceptionWithFields is an indirect subclass (assuming transitive inheritance) of MyException, the second branch of the if-else compound will never be reached. I think, the first and second branch ought to be swapped.

POE::Wheel::Multicast

jwboulet — 2013-01-02T19:04:44+00:00

add following line to the _start subroutine: $wheel->mcast_add("239.255.255.255"); or whatever your mcast group address is

Business::OnlinePayment::BankOfAmerica

svickroy — 2012-11-21T16:32:09+00:00

Due to PCI compliance requirements, this module no longer functions

JomonTest

jomon — 2012-10-19T09:08:15+00:00

Jomon

SQL::Abstract

Gil_Gamesh — 2012-10-18T12:33:51+00:00

For, e.g., requestor < submitter, use:

requestor => { '<', { -ident => 'submitter' } }

Tie::LLHash.pm

bkatzung — 2012-09-21T16:29:10+00:00

See also Data::XHash, which is another doubly-linked-list ordered-hash implementation but using standard Perl names (like unshift and push) for its array-like methods.

Tie::IxHash

bkatzung — 2012-09-21T15:36:30+00:00

Returns value undef when index is undef.

Tie::IxHash

bkatzung — 2012-09-21T15:33:56+00:00

Returns undef for any key that is not found.

Tie::IxHash

bkatzung — 2012-09-21T14:56:41+00:00

 @keys = @indices? $to->Keys(@indices): ()
 @vals = @indices? $to->Values(@indices): ()
 @indices = $to->Indices(@keys)
 @vals = @keys? $to->Values($to->Indices(@keys)): ()
 $last_val = $to->Delete(@keys)
 $to->Reorder(@keys)

Tie::IxHash

bkatzung — 2012-09-21T14:42:34+00:00

Array::AsHash, Array::Assign, Array::OrdHash, Data::Omap, Data::XHash, Hash::AsObject, Hash::Path, Tie::Hash::Array, Tie::LLHash, Tie::StoredOrderHash

See "SEE ALSO" in Data::XHash for more information.