script/mapping: use the provided --delete flag

metacpan · Aug 1, 2016 · 664fe6c · 664fe6c
1 parent 1ab4491
commit 664fe6c
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/lib/MetaCPAN/Script/Mapping.pm b/lib/MetaCPAN/Script/Mapping.pm
@@ -21,6 +21,13 @@ has delete => (
 
 sub run {
     my $self = shift;
+    $self->delete_mapping;
+}
+
+sub delete_mapping {
+    my $self = shift;
+    return unless $self->delete;
+
     if (is_interactive) {
         print colored(
             ['bold red'],