Version 0.48

[chaz/git-codeowners] / lib / File / Codeowners.pm

diff --git a/lib/File/Codeowners.pm b/lib/File/Codeowners.pm
index 0ae71a8d92004f8b15d1541ff06214084360ee65..ee50d99f14356e5bfd94cea9297ce200cdeaa412 100644 (file)
--- a/lib/File/Codeowners.pm
+++ b/lib/File/Codeowners.pm
@@ -10,7 +10,7 @@ use Path::Tiny 0.089;
 use Scalar::Util qw(openhandle);
 use Text::Gitignore qw(build_gitignore_matcher);
 
 use Scalar::Util qw(openhandle);
 use Text::Gitignore qw(build_gitignore_matcher);
 

-our $VERSION = '0.47'; # VERSION
+our $VERSION = '0.48'; # VERSION

 
 sub _croak { require Carp; Carp::croak(@_); }
 sub _usage { _croak("Usage: @_\n") }
 
 sub _croak { require Carp; Carp::croak(@_); }
 sub _usage { _croak("Usage: @_\n") }


@@ -65,11 +65,13 @@ sub parse_from_fh {
         }
         elsif ($line =~ /^\h*#(.*)/) {
             my $comment = $1;
         }
         elsif ($line =~ /^\h*#(.*)/) {
             my $comment = $1;

+            my $project;

             if ($comment =~ /^\h*Project:\h*(.+?)\h*$/i) {
             if ($comment =~ /^\h*Project:\h*(.+?)\h*$/i) {

-                $current_project = $1 || undef;
+                $project = $current_project = $1 || undef;

             }
             $lines[$lineno] = {
                 comment => $comment,
             }
             $lines[$lineno] = {
                 comment => $comment,

+                $project ? (project => $project) : (),

             };
         }
         elsif ($line =~ /^\h*$/) {
             };
         }
         elsif ($line =~ /^\h*$/) {


@@ -278,11 +280,60 @@ sub update_owners {
 
     $self->_clear;
 
 
     $self->_clear;
 

+    my $count = 0;
+

     for my $line (@{$self->_lines}) {
         next if !$line->{pattern};
         next if $pattern ne $line->{pattern};
         $line->{owners} = [@$owners];
     for my $line (@{$self->_lines}) {
         next if !$line->{pattern};
         next if $pattern ne $line->{pattern};
         $line->{owners} = [@$owners];

+        ++$count;
+    }
+
+    return $count;
+}
+
+
+sub update_owners_by_project {
+    my $self    = shift;
+    my $project = shift;
+    my $owners  = shift;
+    $project && $owners or _usage(q{$codeowners->update_owners_by_project($project => \@owners)});
+
+    $owners = [$owners] if ref($owners) ne 'ARRAY';
+
+    $self->_clear;
+
+    my $count = 0;
+
+    for my $line (@{$self->_lines}) {
+        next if !$line->{project} || !$line->{owners};
+        next if $project ne $line->{project};
+        $line->{owners} = [@$owners];
+        ++$count;

     }
     }

+
+    return $count;
+}
+
+
+sub rename_project {
+    my $self        = shift;
+    my $old_project = shift;
+    my $new_project = shift;
+    $old_project && $new_project or _usage(q{$codeowners->rename_project($project => $new_project)});
+
+    $self->_clear;
+
+    my $count = 0;
+
+    for my $line (@{$self->_lines}) {
+        next if !exists $line->{project} || $old_project ne $line->{project};
+        $line->{project} = $new_project;
+        $line->{comment} = " Project: $new_project" if exists $line->{comment};
+        ++$count;
+    }
+
+    return $count;

 }
 
 
 }
 
 


@@ -354,7 +405,7 @@ File::Codeowners - Read and write CODEOWNERS files
 
 =head1 VERSION
 
 
 =head1 VERSION
 

-version 0.47
+version 0.48

 
 =head1 METHODS
 
 
 =head1 METHODS
 


@@ -466,6 +517,22 @@ multiple such patterns, they will all be updated.
 
 Nothing happens if the file does not already have at least one such pattern.
 
 
 Nothing happens if the file does not already have at least one such pattern.
 

+=head2 update_owners_by_project
+
+    $codeowners->update_owners_by_project($project => \@new_owners);
+
+Set a new set of owners for all patterns under the given project.
+
+Nothing happens if the file does not have a project with the given name.
+
+=head2 rename_project
+
+    $codeowners->rename_project($old_name => $new_name);
+
+Rename a project.
+
+Nothing happens if the file does not have a project with the old name.
+

 =head2 append
 
     $codeowners->append(comment => $str);
 =head2 append
 
     $codeowners->append(comment => $str);