-sub print
-{
- my($self)=@_;
- my $op=$self->name();
- my $left=$self->left();
- my $right=$self->right();
- return "" unless($left || $right);
- my $str .= $self->print_node($left);
- $str .= (" " . $op . " ") if($op);
- $str .= $self->print_node($right);
- if($op || ($left && $right))
- {
- $str="(" . $str . ")";
- }
- return $str;
-}
-
-sub print_node
-{
- my($self, $node)=@_;
- return "" unless(defined($node));
- return $node->print() if(ref($node) eq "ID3FS::Path::Node");
- return $node->{name};
-}
-