blogs.perl.org

AbstractSingletonProxyFactoryBean:

Convenient proxy factory bean superclass for proxy factory beans that create only singletons.

Today on the way to work I almost finished off Test::BDD::Cucumber, but didn't quite manage it. So work having finished, I cracked out my MacBook Air and put the finishing touches in!

Choose your own adventure: if your reaction was:

WTF is Cucumber? - the tutorial

Where can I browse it? - MetaCPAN, GitHub

Well that's boring... - cat pictures to the rescue...

So now that preparation for YAPC::Asia Tokyo 2011 is in full swing, I thought I'd share some nitty gritty details from YAPC::Asia.

(Oh, and we're currently accepting talk submissions! Hint Hint)

This entry is mainly about marketing and fundraising for YAPC::Asia Tokyo. Yes, $$. Stuff that artists and engineers don't really care about, but you should. This is also part of my talk from YAPC::NA 2011, "How to run Japan Perl Association"

So let's start out with the core funding: Every year Japan Perl Association (JPA) collets membership fees from its members. We have different levels of membership which vary from $500/yr to $6,000/yr. The expensive plans are actually divided up into two portions. 30% goes to fund JPA operation, and the rest is for YAPC. The sum varies from year to year, but we have worked with our members to collect around $12,000 ~ $14,000 as the core funding to run YAPC.

I'd like to see more people talk about their successes with Perl. I don't think we do a very good job of promoting successes. So while there are lots of great Perl apps out there, we as a community need to talk about them more. So I'll start, and I hope to hear more from you guys.

The Game Crafter is one that I'm very proud of. It's completely written in Modern Perl using Moose, DBIx::Class, Dancer, ElasticSearch, Image::Magick, and over 100 other modules, and deployed on Perl 5.12 (cuz 5.14 came out just before we launched it).

Hi Folks

Yep, it's coming to a lab near you. Err, if you're in Europe.

X-ray camera.

This web site is one of my favourites.

Edit Notice: I edited this post because of a very valid point made in brian's comment below.

cpan Bash::Completion::Plugins::perlbrew 

and I get a “don't know what it is.” error. I changed my cpan urllist to point to http://cpan.cpantesters.org and reloaded the index and still no dice. I am still unsure why this is not working so I decided to try installing just Bash::Completion and it fails during t/05-utils.t .

So now what do I do? I really do not need to install Bash::Completion::Plugins::perlbrew or Bash::Completion but I do not like how they failed to install. Time to submit a test report.

PPW

• We need more sponsors. I've been working on a few leads, trying to make sure we can pay for everything.
• Web site updates
• Working on schedule template for the event.   There's a lot of debate over starting time.  Traditionally, people complained we started too early.   But, if we start any later it really makes for a short event once you subtract out all the breaks and meals.
  

• Working with accountant.   We need to get all the YAPC records reconciled with our bank account.
• Made history this week by processing the first ever set of monthly recurring donations to TPF.
• Paying bills.   TPF is an associate member of the Unicode consortium for another year.
• I've confirmed there's a problem with the YAPC checks.   They were mailed to the bank for deposit.   But, the bank never received them.   Now, I'm kicking myself for not using delivery tracking.   I've mailed in deposits several times in the past and never had this issue.  At least I have a scan of all the checks.   If they don't turn up soon, I'm going to have to write all the people that wrote checks.  I'm really not looking forward to that.
  

• Upgraded to OS X Lion and hating it.

We need your help to make YAPC::NA the best it can be. First, we are trying to compile a list of every company and organization that uses Perl. Second, if there is someone you'd like to hear give a talk about anything submit them to our Presenter's brainstorm list.

There's a saying: "If you can't make money, at least have fun." My open source projects have never earned a profit, but they've been enormous fun.

They've put me in the position to meet a lot of great people and go to interesting places. It's hard to imagine having more fun than I did speaking at Perl Oasis and YAPC::NA this year. If anyone releasing projects in other languages has more fun than this, how do they survive?

But giving away software is only fun when people use it. Otherwise it's just saving public backups or something.

So hearing that DomainSponsor's distributed server architecture uses one of my modules made my weekend. It was an awesome feeling, and it put me in the mood to update five distributions in the past couple days.

And write a blog post, which you're reading. Thanks, by the way.

So if you're using CPAN modules (and can talk about it, of course) let us authors know. Because most of us aren't making money at it, and you'll help us have more fun and release more code despite that.

You may or may not have noticed that you can't simply call PLPerl SPI subroutines from within your module. What happens is you get an error saying cannot find Package::Name::spi_*. This is because the PL/Perl SPI subroutines are not provided as perl CORE functions but rather local subroutines in the main:: package.

What can be done?

You may be tempted (as I was) to pass in an anonymous sub routine reference to your module like so:

return Package::Name->new()->process( sub { return spi_exec_query(@_) } )

This may seem like it would work, but you then run into problems because the spi_* PL/Perl subroutines have a prototype that restricts you from passing in an array. So you end up with code more like:

return Package::Name->new()->process( sub { return spi_exec_query($_[0], $_[1]) } )

Which, as you will agree is just plain ugly. So, to overcome the prototype you can instead call it like this:

return Package::Name->new()->process( sub { return &spi_exec_query(@_) } )

Tom Christiansen's slides for Unicode Support Shootout "The Good, the Bad, & the (mostly) Ugly" should be required reading for anyone working in Unicode in my (unfortunately arrogant) opinion.

Our software dev team for YAPC::NA 2012 has begun the task of converting the venerable ACT conference management system, used to run many YAPC's, to Plack. It is currently directly tied to the mod_perl 1.x API. This modernization effort should make ACT more accessible to more developers around the world. Our hope is that this work will be completed and released to GitHub in the next few weeks.

Recently I found some spare tuits and decided to spend them on MetaCPAN::API.

My main problem with the old MetaCPAN::API was that I had made a wrong design decision, and failed to take into account the flexibility of MetaCPAN. It really is flexible.

The second time around I decided I'll write it correctly, and test it thoroughly. I've moved to version 'v0' of the API (what was referred to as 'Beta API') and this helped clean up quite a bit. I was able to write it the way I wanted.

Tim Bunce (who I actually had the pleasure of meeting last YAPC::EU) had opened a ticket asking for complex POST requests. This got me thinking and that day I implemented complex GET requests, paving the way to the aforementioned POST requests.

So what's in MetaCPAN::API right now?

Last week I posted an article on how CPAN authors could expand their profiles on metacpan.org. Since then there has been so much activity that I thought a quick recap would be in order. I'm not covering all activity, so my apologies to anyone whose efforts have not been replayed here.

At the time of the article, 91 authors had logged in to MetaCPAN and updated their profiles. That number after one week is 240. That's still a very small fraction of total CPAN authors, but it's also an amazing start.

On or just after the day of my post, Mo added +1 to metacpan.org. So, if you haven't already, log yourself in and start upvoting your favourite distributions. There will be more info on +1 to come, but this is a first step in making CPAN a friendlier place.

The NNTP injection host that I use to feed comp.lang.perl.announce had moved, and for some reason I had hardwired the old IP address into my posting script. Once I got that sorted out, it looks like it'll be business as usual for CLPA once again.

YAPC::NA now has a permanent Facebook page with a shorter URL:

http://www.facebook.com/yapcna

If you're a Facebook user, this is an easy way to keep up with everything going on at YAPC::NA 2012 and beyond.

In addition to our new Facebook page, you can also keep up to the minute by following our Blog, our RSS feed, our LinkedIn Group, or our Twitter feed.

Given HTML with certain "empty" tags that you wanted to manipulate via something like:


my $html = '<p><iframe src="..."></iframe></p>';
my $doc = XML::LibXML->new->parse_html_string($html);
# do stuff with $doc
$doc->toString();


You would end up with:

<p><iframe src="..."/></p>';

Namely, the "empty" iframe tag is going to get output as a single, self-closing tag.

But that's not valid HTML. Not even valid HTML5.

XML::LibXML::Parser has the setTagCompression option but this is no good here.

<hr/>, <br/> and <img src="..." alt="..."/>

cannot be written as:

<hr></hr>, <br></br> and <img src="..." alt="..."></img>

at least, not if you want valid HTML.

I hit upon the idea of appending a single space:

for ($root->findnodes('//iframe')) {
    $_->appendChild(XML::LibXML::Text->new(' '))
        if !$_->hasChildNodes;
}

which works, because an extra space inside a previously "empty" iframe, script or canvas tag would be harmless. However this approach will cause problems when you come across "empty" <textarea> tags.

<textarea></textarea>

is not the same as:

<textarea> </textarea>

We've been using Dist::Zilla at $work quite some time now.

For a while I feared the possible mistake of running "dzil release" on one of our modules or applications (we have quite a bit!) and thus releasing it to CPAN. We try to remove all generic parts of our code and push it as regular modules on CPAN so everyone can enjoy it (and we get feedback and patches and so on). This means that the rest of our code, what we keep on local repositories, are very specific to us. This cannot be released, obviously.

First job was fixing that. Easy enough. In your dist.ini:

[@Filter]
-bundle = @Basic
-remove = UploadToCPAN


Now if someone tries to release, it fails. Yay!

Next one was a feature I wanted for a while: to be able to get notified by email when a new release it out. I've searched CPAN and could not find anything that emails. So I wrote Dist::Zilla::Plugin::EmailNotify.

When watching videos at Tudou or Youku, both Chinese YouTube-like video sites, you'll often get one/two 15- or 30-second video ads at the beginning. Since I download lots of videos recently, my Opera browser cache contains a bunch of these video ads files, each usually ranging from around 500k to a little over 1MB. But there are also duplicates.

I thought I'd collect these ads, for learning Chinese, but I don't want the duplicates, only one file per different ad. The result: App::UniqFiles, which contains a command-line script called uniq-files. Now all I need to do is just type mkdir .save; mv `uniq-files *` .save/ and delete the duplicate videos, which are files not moved to .save/.