File Coverage

blib/lib/Git/Diff.pm

Criterion	Covered	Total	%
statement	16	49	32.6
branch	0	6	0.0
condition	0	5	0.0
subroutine	6	10	60.0
pod	4	4	100.0
total	26	74	35.1

package Git::Diff;

use Git;
use utf8;
use 5.024;
use strict;
use warnings;

$Git::Diff::VERSION = '0.000100';

sub new {
    my $s_class = shift;
    return bless {@_}, $s_class;
}

sub _repository {
    my ($self) = @_;
    $self->{_repository} //= Git->repository( %{$self} );
    return $self->{_repository};
}

sub changes_by_line {
    my ($self) = @_;
    my $hr_files = $self->changed_lines();
    for my $s_file ( keys %{$hr_files} ) {
        my $hr_changed_lines = $hr_files->{$s_file}->{changed};
        for my $s_line_key ( keys %{$hr_changed_lines} ) {
            my ( $i_subtraction, $i_addition ) = ( $s_line_key =~ m/\-(\d+)(?:,\d+)*\s\+(\d+)/ );
            for my $s_changed_line ( split /^/, $hr_changed_lines->{$s_line_key} ) {
                if ( $s_changed_line =~ /^\+(.*)/ ) {
                    $hr_files->{$s_file}->{addition}->{ $i_addition++ } = $1;
                }
                elsif ( $s_changed_line =~ /^\-(.*)/ ) {
                    $hr_files->{$s_file}->{subtraction}->{ $i_subtraction++ } = $1;
                }
            }
        }
    }
    return $hr_files;
}

sub changed_lines {
    my ($self) = @_;
    my $s_gitresult = $self->diff( $self->{base_branch} // 'master', '-U0' );
    my @a_splitted  = split /^diff /ms, $s_gitresult;
    shift @a_splitted;
    my $hr_files = {};
    for my $s_line (@a_splitted) {
        my ($s_file_name) = ( $s_line =~ m/^--git .* b\/(.*)/ );
        my @a_lines = split /@@\s+/, $s_line;
        shift @a_lines if scalar @a_lines % 2 == 1;
        my %h_changed_lines = @a_lines;
        $hr_files->{$s_file_name} = { raw => $_, changed => \%h_changed_lines };
    }
    return $hr_files;
}

sub diff {
    my $self             = shift;
    my @a_command_params = @_;
    unshift @a_command_params, 'diff';
    return $self->_repository->command(@a_command_params);
}

1;

__END__