A fast DAG class needed

package DAG;
    
...
    
    return $self;
}

...
sub is_ancestor {
...
    }    
    return $self;
}

P1 --+   
     +--> Child
P2 --+

Select Code to Download