sub new {

    my $class = shift;

    my ($uid, $root, $app) = @_;

    return bless {
        Root        => $root,
        UserDir     => "$root/Usr/$uid/",
        UserAppData => "$root/Usr/$uid/$app",
        } => $class;

    }