diff options
Diffstat (limited to 'lib/Youri/Package/RPM.pm')
-rw-r--r-- | lib/Youri/Package/RPM.pm | 15 |
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; |