Hi,
I have a small piece of code that I am trying to improvise. I see that when I remove the  $item->read($libfile) the file is not processed at all. Can you explain why this is so as I am not able to figure out?

#!/usr/bin/perl
use strict;
use warnings;

package main;
#my $testObj = Disk::Collection->new();
#$testObj->read(Disk::FileInput->new("inputtextfile"));
#$testObj->print_dk_push_back;

my $testObj = Disk->new("inputtextfile");

package Disk;
sub new {
    my ($class, $fname) = @_;
    my $self = {
    lib => undef
    };
    bless $self, $class;

    my $lib     = Disk::Collection->new();
    my $libfile = Disk::FileInput->new($fname);
    $lib->read($libfile);

    ($self->{lib}) = ($lib->get_list("JUNK"));
    return $self;
}

package Disk::Collection;

sub new {
    my $class = shift;
    my $self = {
    line  => shift,
    items => undef,
    close => undef,
    };
    $self->{line} = "" unless $self->{line};
    bless $self, $class;
}

sub read {
    my ($self, $libfile) = @_;
...
...
    my $item = Disk::Collection->new($line);
    if ($line =~ /{/) {
        die "syntax error:$lino: $line\n" if $line !~ /{\s*$/;
        $item->read($libfile); ----> If I remove this line, the file p
+rocessing does not happen.
        print $line, "\n";
    }
...
...
}
...
...
[download]

Update: I just realized I accidentally posted the whole code.
Thanks.