#!/usr/bin/perl

use Graph;

my $garage = Graph->new;

$garage->add_path( qw( move_car move_LPs move_sofa
                       hoover_floor wash_floor ) );
$garage->add_edge( qw( junk_newspapers move_sofa ) );
$garage->add_path( qw( clean_toolracks wash_windows wash_floor ) );

my @topo = $garage->toposort;

print "garage toposorted = @topo\n";