From e9fa4c98bb5f084739d3418ade3f0c51e34a0aa1 Mon Sep 17 00:00:00 2001 From: Arne Georg Gleditsch Date: Thu, 5 Jul 2007 00:51:08 +0200 Subject: Rebase tree. --- lib/LXRng/Repo/File.pm | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 lib/LXRng/Repo/File.pm (limited to 'lib/LXRng/Repo/File.pm') diff --git a/lib/LXRng/Repo/File.pm b/lib/LXRng/Repo/File.pm new file mode 100644 index 0000000..7df5a04 --- /dev/null +++ b/lib/LXRng/Repo/File.pm @@ -0,0 +1,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; -- cgit v1.2.3