view release on metacpan or  search on metacpan

lib/GappX/FileTree.pm  view on Meta::CPAN

        }
        
    }
);

after _build_gobject => sub {
    #$_[0]->update;
};


sub update {
    my ( $self ) = @_;
    
    
    $self->model->gobject->clear;
    
    my $m = $self->model->gobject;
    
    my $base = $self->path;
    $base =~ s/(\/|\\)\s*$//; # remov trailing slash
    my $baserx = quotemeta $base;