package FileNode;

sub new {
    my ($class,$node_name) = @_;
    my $self = {
        "type"  => "file",
        "name"  => $node_name
    };
    bless $self, $class;
    return $self;
}

sub display_tree {
    my ($self,$prefix) = @_;
    print($prefix." ".$self->{"name"}."\n");
}

1;