It’s Moosey and it’s juicy… I hope it helps you get from A to B with Perl a bit faster!

If anybody is top-fit with Moose::Util::TypeConstraints, I have some issues in this module which I don’t understand and would really appreciate some tips with.

And here’s some sample code:

#!/usr/bin/env perl

use strict;
use warnings;
use Google::Directions::Client;
use Getopt::Long;

my %params;
GetOptions( \%params,
 'origin=s',
 'destination=s',
 );

my $goog = Google::Directions::Client->new();

my $response = $goog->directions( %params );
my $first_leg = $response->routes->[0]->legs->[0];
printf( "That journey will take you %0.1f minutes and %0.1fkm\n",
 ( $first_leg->duration / 60 ),
 ( $first_leg->distance / 1000 ),
 );

# $> ./test_directions.pl --origin "Munich, Germany" --destination "Hamburg, Germany"

# That journey will take you 443.8 minutes and 778.5km

The stats

• New price: 450€ (city bike, aluminium frame, solid carrier, hub dynamo, …)
• At the 10000km my bike was about 4 years old (but one year in storage)
• I cycled an average of 3300km per year that I used it
• Never cycled outside of Munich city
• No recreational cycling – all commuting
• Average speed with winter tyres: 15km/h
• Average speed with summer tyres: 18km/h

How much wear and tear on the bike?

• Replaced break blocks 3 times
• Replaced 3 tyres
• Replaced 2 tubes
• Replaced break and gear cables
• One broken crank shaft bearing
• One new saddle
• Replaced rear sprocket
• Replaced crank set and pedals
• Purchased studded winter tyres
• Replaced front halogen lamp with powerful LED lamp
• Lots of oil…

Total cost of ownership

Assuming a linear depreciation to 100€ over 5 years, the cost of the bicycle, plus maintenance (my work time not included): 127€/year

Given that at least 2/3 of the distance travelled was work related I can write off 5ct/km (flat-rate in German taxes): 110€ per year, so it only costs me ~17€ per year to cycle.

Had I driven that distance by car (assuming a car which I would own: a 7 year old compact) it would have cost me about 200€ taxes, 500€ insurance, 400€ maintenance, and 700€ depreciation, plus 188€ for petrol: 2000€, minus the tax deduction of 660€ leaves 1340€ for a small car.  Granted I wouldn’t have only driven the car in the city, so it’s not exactly comparable…

Had I got a year round ticked for the local municipal transport system (MVV), it would have cost me 438€ for public transport. This could be written off 100% by using the flat rate.

Other effects

• Depending on the distance between home and work over the years, I had anything up to 1.5 hours of fresh air and light exercise per day.  At my last general medical check-up the doctor did a stress ECG on me and found all parameters well above “healthy”.  I’m sure that has something to do with cycling.
• I haven’t had a single sick day in the last 10 years of work.  That’s not to say I was never sick, but nothing bad enough to keep me home.  Maybe not sitting in public transport (confined metal tubes full of coughing and sneezing people) helped too…
• I hate sitting in traffic… I hardly ever sit in traffic…
• Taking into account the time for walking to a car, driving through traffic, finding a parking spot, and walking from there to the destination, I’m always faster by bike than you will be by car in the city.
• I’m always faster than public transport over short distances, and in the spring/summer/autumn faster over all distances (without breaking a sweat!).

Enough already?

Get on your bike!

The example above has 4 tasks

• Feed the dog
• Feed the fish
• Get bread and milk
• Water the plants

Daily tasks are blue/red

Weekly tasks are yellow/green.

Every day we can slide the marker below along one field (there’s two weeks shown, because 7 days aren’t evenly divisible by 2, but 14 are… ).

At the end of the day, all the pegs should have the colour of the day showing.

In the example above, today is Monday, and it’s a blue day, and a green week.  Whoever fed the dog and the fish already turned the cloths pegs around to show the blue side.  Milk and bread hasn’t been bought yet (so the peg is still showing red from the day before), and the plants haven’t been watered yet this week.

Construction is pretty straight forward.  For the pegs, get cheap plastic cloths pegs in four colours.  Take them apart and reassemble them so that each peg has two colours:

The board is just a piece of 3mm MDF (cardboard will do too) with a spacer on the back to give it some distance to the wall.  On the bottom area, make 14×2 rows, and colour them in with the four colours of the cloths pegs you have.  The only complicated bit is making the slider.  I used a piece of over exposed film for a nice frame, and a strip of transparent folder as the strip for it to run on.  If you use something smooth for your board, you can probably get away with whiteboard markers, or just cut a piece of paper to size and write/draw your tasks on it – the handy thing about the pegs: you’ll only be turning one at a time, and the rest will hold the paper for you!

The advantages of having a board like this in your household:

• Everyone automatically knows what has been done, and what has to be done without asking each other
• Nothing gets done twice (feeding animals too much can be bad for them)
• Your mind is free to think about more productive things than “what did I still have to do today?”

Say begone to confusion and forgetfulness in your household and go Kanban today!

• WWW::EFA on cpan
• WWW::EFA on github (for your forking pleasure)

What is EFA?

EFA is a product from Mentz Datenverarbeitung in Munich which is used my many municipal travel providers such as the MVV in Munich to provide travel data for their patrons.

Unfortunately there is no documentation to the interface available, so my implementation is mostly reverse-engineered to their RESTful API.  A lot of ground work which helped me get ahead was done by Andreas and friends in Java with the public-transport-enabler (see AbstractEfaProvider in there for more details) which incidentally is the code behind the hugely popular android App Öffi.

What can I WWW::EFA for?

Querying travel times between locations, and stops within a municipal transport network.

Which municipalities will it work for?

There are loads of transport authorities which use EFA (London, Munich, Basel, San Francisco, …).  I have only tested it with the MVV…

Where are all the unit tests and examples?

Sorry… it’s a work in progress… I’d be really grateful for any contributions you want to make to make it more complete!!

What other similar perl modules are there?

• Travel::Routing::DE::VRR

Code example

use WWW::EFA::Provider::MVV;

use WWW::EFA::Coordinates;

use WWW::EFA::Location;

use Class::Date qw/now/;

my %efa_params;

my $efa = WWW::EFA::Provider::MVV->new( %efa_params );

my $search_to_location = WWW::EFA::Location->new(
 coordinates => WWW::EFA::Coordinates->new(  lat => 48.171606, lon => 11.498899 ),
 );

my $search_from_location = WWW::EFA::Location->new(
 coordinates => WWW::EFA::Coordinates->new( lat => 48.140267, lon => 11.557302 ),
 );

my( $from_location ) = $efa->coord_request(
 location => $search_from_location,
 max_results => 5,
 max_distance => 100,
 );

my( $to_location ) = $efa->coord_request(
 location => $search_to_location,
 max_results => 5,
 max_distance => 100,
 );

printf "##### Getting trips between\n%s\n%s\n",
 $from_location->string, $to_location->string;

my $trips = $efa->trips(
 from => $from_location,
 to => $to_location,
 date => now(),
 );

print $trips->string;

This is the webapp which resulted.

The backend

Behind the scenes I have a home built micro-controller web server controlling the temperature in a refrigerator to bring our turtles into a healthy winter hibernation.  A perl script regularly (once per minute) queries the current status from the micro-controller, and logs the data (temperature in the tank, the refrigerator, room, humidity, and switch state) to a (SQLite) database.  So, I have some interesting data, and want to make that web accessible – how well suited is Dancer to the task?

Turns out: very suitable!

Dancer is…

• super quick and easy to get started with: 2 minutes tops to get a basic web application running, including installing Dancer with cpanplus.
• very intuitive for the basic stuff – in my case I had a template for the webpage, a database handler to get the data, and a method to do some basic analysis and pre-processing on the data before returning it to the client as json.
• a bit procedural… it is possible to develop an OOP app with Dancer, but with its background singleton and plethora of new syntax it feels like, and encourages procedural practices.

Dancer is not (IMHO)…

• a framework which will force/cajole you into using good design practices (OOP, MVC).  You can be quick’n'dirty with Dancer, which depending on your standpoint can be a pro or a con.
• easy to understand the inner workings.  You may hate the global $c in Catalyst to which everything is bound, but … you do know what to bind stuff to, and you do know where to find it.  In Dancer there is (even) more hidden magic.
• for special wishes.  For example for something as simple as having “Expires” http headers for static files, I had to add a after_file_render hook.

Better, Faster and Cooler

Some other stuff I did on the way to make it BFC:

• Used jqPlot for the graphs.  I really like it!  I used to be into OFC, but jqPlot is faster, more versatile, and the big kicker: doesn’t require Flash!  Try out the zooming and mouse-over effects!
• Data compression: originally the data for the charts weighed in at over 2MB…
• Reduce repetition: for the graphs, the data requires an array-of-arrays with each value paired with the relevant date.  Rather than transmitting the 5 finished array-of-arrays (each with its own set of date data), I now transmit just the 4 data arrays, and the date array, and then build them as jqPlot requires them with javascript clientside.  This reduced the transmitted data from 2MB to ~400KB.
• Deflate the data – by using Plack::Middleware::Deflater I was able to further reduce the transmitted data to ~40KB
• Using Plack and Starman to easily put the webapp online.  Wow… that makes the transition from development on localhost to full deployment serverside childsplay!
• Using Varnish to cache the pages server-side.  Some people make the effort of serving the static elements of a web app via a light web server, and while this has its merits, I prefer a contiguous web app which is complete in itself, and by applying the appropriate Expires http headers, let a reverse proxy do the grunt work.  I set the headers for this webapp so the worst-case load on the back-end will only be 1 request every 7 Days for any of the javascript/css files, 1 per hour for the html page, and 1 per minute for the json data.  Go ahead and slashdot me… I think I can take it, even though there’s only 3 worker processes and it’s running off a SQLite database.

Summary

I will definitely be using Dancer again.  For any corporate and larger web applications I’d still prefer Catalyst, but for applications like this where I want to put something small online quickly, it’s the bees knees!