- push @{ $job->{$1} }, $2;
- dot qq|"$job->{name}" -> "$2" [ label="$1" ];|;
+ my ( $do, $what ) = ( $1, $2 );
+ push @{ $job->{$do} }, $what;
+ my $style = '';
+ $style = ' style=dotted ' if $do =~ s/_background.*//;
+ dot qq|"$job->{name}" -> "$what" [ $style ];|;