Merge pull request #508 from metacpan/mickey/mapping_use_delete_flag

script/mapping: use the provided --delete flag
metacpan · Aug 4, 2016 · 0f04a62 · 0f04a62
2 parents 1ab4491 + 664fe6c
commit 0f04a62
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'],