Select Code to Download

    list  : LIST HEADER
    {
        Klarf::1_8::_store_list( $self, $item{HEADER} )
    }

sub _store_list{
    my $self   = shift;
...
    
    say "Found $header" if $self->{_verbose};
}

sub file {
    my $self = shift;
...
    
    return $file;
}

package Klarf::1_8;
use strict;
...
    
    klarfline   :   record | field | list | data | column | obracket |
+ cbracket | line
    startrule   :   klarfline(s /;/)