| Subject: | Parse::Taxonomy::AdjacentList->write_pathified_to_csv does not honor argument for 'path_col' |
In the following code:
#####
my $obj = Parse::Taxonomy::AdjacentList->new( {
file => $fintermediate,
id_col => 'id',
parent_id_col => 'parent_id',
leaf_col => 'name',
} );
croak "Could not form taxonomy" unless defined $obj;
my $pathified = $obj->pathify( { path_col => 'full_path' } );
my $csv_file = $obj->write_pathified_to_csv( {
pathified => $pathified, # output of pathify()
csvfile => "implicit_taxonomy_YYYYMMDD.csv",
} );
#####
... the first line of $csv_file is showing 'path'. It is failing to honor the fact that we passed "path_col => 'full_path'" in the hashref passed to '$obj->pathify()'.
Problem appears to be the hard-code value here:
https://github.com/jkeenan/parse-taxonomy/blob/master/lib/Parse/Taxonomy/AdjacentList.pm#L866
Thank you very much.
Jim Keenan