Try changing:
my $title = Links::Build::build('title_linked', $full_name);
to
my $title = Links::Build::build('title_linked', substr($full_name, 0, rindex($full_name, '/')) );
my $title = Links::Build::build('title_linked', $full_name);
to
my $title = Links::Build::build('title_linked', substr($full_name, 0, rindex($full_name, '/')) );