lib/LXRng/Repo/File.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

package LXRng::Repo::File;

use strict;

sub name {
    my ($self) = @_;

    return $$self{'name'};
}

sub node {
    my ($self) = @_;

    $self->name =~ m,([^/]+)$, and return $1;
}

1;