Abusing File::Serialize to the max

omniplan_export.pl

#!/usr/bin/env perl 

use strict;
use warnings;

use File::Serialize;
use List::Util qw/ pairmap /;
use DDP;

my ( @parent, $tasks, $crew );

transerialize_file 'omniplan/projects.xml' => [
    [  sub { $_->{Resources}{Resource} } => sub { +{ map { @{$_}{qw/ UID Name/} } @$_ } } => \$crew
    ],
    [ sub { $_->{Tasks}{Task} }
        => sub { +{ map { 
            @parent = splice @parent, 0, $_->{OutlineLevel} - 1;
        
            my $r = {
                uid        => $_->{UID},
                start_date => $_->{Start} =~ s/T.*$//r,
                end_date   => $_->{Finish} =~ s/T.*$//r,
                label      => $_->{Name},
                done       => !$_->{Active},
                parent     =>  $parent[-1],
            };
            push @parent, $r->{uid};
            $r->{uid} => $r;
        } @$_ } } 
        => \$tasks
    ],
    [ sub { push @{$tasks->{$_->{parent}}{subtasks}}, $_->{uid} 
              for grep { $_->{parent} and $_->{parent} != $_->{uid} } values $tasks; }
    ],
    [
        sub { $_->{Assignments}{Assignment} }
            => sub { 
                pairmap { push @{ $tasks->{$a}{crew} }, $crew->{$b} }
                map     { @{$_}{ qw/ TaskUID ResourceUID / } }  
                        @$_
            }
    ],
];

p $tasks;