Tuesday, 14 June 2011

To remember

my $last_base_index = ( length $fields[$SEQUENCE_INDEX] ) - 1;

The parenthesis are needed!

Friday, 3 June 2011


Last year, my dad, as the Chairman of the local community association says that what might be a good fund raiser is a bingo evening.

Initially, my thought was, who are they going to get to run that then?

But he continued, and came up to the question of sourcing a bingo machine. This is were I came in and said,

'Oh, that's easy, I could write one in a couple of weekends on the computer, we jsut hook my laptop up to a big screen and that's that.'

Can you see where I'm going with this?

So, time passes, I had a quick stab last November, but stopped as Christmas was coming up, and I was writing a perl course for work...

Until March, when Dad turns round and says

'Are you going to be able to write the bingo machine in time for Annual fundraising week? What day of the week is best for you to run it?'


Still, never one to back down from a request to do something, I set to work. Went back to github, and decided to scrap most of what was there, start a new Catalyst project, and a couple of weekends later, I have a bingo caller, with big ball images, and a pretty simple interface.

It could still do with a pretty looking interface, but it does the job, and should run nicely next week - assuming I can sort out Moose