/usr/share/perl5/Git/Wrapper/Statuses.pm is in libgit-wrapper-perl 0.045-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 | package Git::Wrapper::Statuses;
# ABSTRACT: Multiple git statuses information
$Git::Wrapper::Statuses::VERSION = '0.045';
use 5.006;
use strict;
use warnings;
use Git::Wrapper::Status;
sub new { return bless {} => shift }
sub add {
my ($self, $type, $mode, $from, $to) = @_;
my $status = Git::Wrapper::Status->new($mode, $from, $to);
push @{ $self->{ $type } }, $status;
}
sub get {
my ($self, $type) = @_;
return @{ defined $self->{$type} ? $self->{$type} : [] };
}
sub is_dirty {
my( $self ) = @_;
return keys %$self ? 1 : 0;
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Git::Wrapper::Statuses - Multiple git statuses information
=head1 VERSION
version 0.045
=head1 METHODS
=head2 add
=head2 get
=head2 is_dirty
=head2 new
=head1 SEE ALSO
=head2 L<Git::Wrapper>
=head1 REPORTING BUGS & OTHER WAYS TO CONTRIBUTE
The code for this module is maintained on GitHub, at
L<https://github.com/genehack/Git-Wrapper>. If you have a patch, feel free to
fork the repository and submit a pull request. If you find a bug, please open
an issue on the project at GitHub. (We also watch the L<http://rt.cpan.org>
queue for Git::Wrapper, so feel free to use that bug reporting system if you
prefer)
=head1 AUTHORS
=over 4
=item *
Hans Dieter Pearcey <hdp@cpan.org>
=item *
Chris Prather <chris@prather.org>
=item *
John SJ Anderson <genehack@genehack.org>
=back
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2014 by Hans Dieter Pearcey.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|