merging dev with upstream

1 files changed, 15 insertions, 0 deletions

diff --git a/lib/Youri/Package/RPM.pm b/lib/Youri/Package/RPM.pm
index cdb1680..bb87f38 100644
--- a/lib/Youri/Package/RPM.pm
+++ b/lib/Youri/Package/RPM.pm
@@ -15,6 +15,7 @@ implementation.
 use strict;
 use warnings;
 use base 'Youri::Package';
+use Carp;
 
 sub get_pattern {
     my ($class, $name, $version, $release, $arch) = @_;
@@ -30,4 +31,18 @@ sub get_pattern {
         '\.rpm';
 }
 
+sub as_file {
+    my ($self) = @_;
+    croak "Not a class method" unless ref $self;
+
+    return $self->{_file};
+}
+
+sub is_debug {
+    my ($self) = @_;
+    croak "Not a class method" unless ref $self;
+
+    return $self->get_name() =~ /-debug$/o;
+}
+
 1;