Viewing File: /usr/local/cpanel/3rdparty/perl/536/cpanel-lib/x86_64-linux/Diff/LibXDiff.pm

package Diff::LibXDiff;

use warnings;
use strict;

=head1 NAME

Diff::LibXDiff - Calculate a diff with LibXDiff (via XS)

=head1 VERSION

Version 0.05

=cut

our $VERSION = '0.05';

=head1 SYNOPSIS

    use Diff::LibXDiff;

    my $string1 = <<_END_
    apple
    banana
    cherry
    _END_

    my $string2 = <<_END_
    apple
    grape
    cherry
    lime
    _END_

    my $diff = Diff::LibXDiff->diff( $string1, $string2 )
    my $bin_diff = Diff::LibXDiff->bdiff( $bin_string1, $bin_string2 )

    # $diff is ...

    @@ -1,3 +1,4 @@
     apple
    -banana
    +grape
     cherry
    +lime

=head1 DESCRIPTION

Diff::LibXDiff is a binding of LibXDiff (L<http://www.xmailserver.org/xdiff-lib.html>) to Perl via XS

LibXDiff is the basis of the diff engine for git

=cut

require Exporter;
use XSLoader;

use Carp::Clan;

our @ISA = qw/Exporter/;
our @EXPORT_OK = qw//;

XSLoader::load 'Diff::LibXDiff', $VERSION;

=head1 METHODS

=head2 $diff = Diff::LibXDiff->diff( $string1, $string2 )

Calculate the textual diff of $string1 and $string2 and return the result as a string

=head2 $patched = Diff::LibXDiff->patch( $original, $patch )

=head2 ( $patched, $rejected ) = Diff::LibXDiff->patch( $original, $patch )

Calculate the patched string given an original string and a patch string

If the patching algorithm cannot place a hunk, it will return a second "rejected" result (if called in list context)

=head2 $bdiff = Diff::LibXDiff->bdiff( $bin1, $bin2 )

Calculate the binary diff of $bin1 and $bin2 and return result as a string

=head2 $bpatched = Diff::LibXDiff->bpatch( $original, $patch )

Calculate the patched binary given an original string and a patch string

=cut

sub diff {
    my $self = shift;
    my ($string1, $string2) = @_;

    croak "string1 not defined" unless defined $string1;
    croak "string2 not defined" unless defined $string2;
    croak "string1 isn't a string" if ref $string1;
    croak "string2 isn't a string" if ref $string2;

    my $result = _xdiff( $string1, $string2 );

    my @error = @{ $result->{error} };

    croak join '', "Unable to process the diff of string1 & string2: ", join ', ', @error if @error;

    return wantarray ?
        ( $result->{result} ) :
        $result->{result}
    ;
}

sub bdiff {
    my $self = shift;
    my ($string1, $string2) = @_;

    croak "String1 not defined" unless defined $string1;
    croak "String2 not defined" unless defined $string2;
    croak "string1 isn't a string" if ref $string1;
    croak "string2 isn't a string" if ref $string2;

    my $result = _xbdiff( $string1, $string2 );

    my @error = @{ $result->{error} };

    croak join '', "Unable to process the diff of string1 & string2: ", join ', ', @error if @error;

    return wantarray ?
        ( $result->{result} ) :
        $result->{result}
    ;
}

sub patch {
    my $self = shift;
    my ($string1, $string2) = @_;

    croak "string1 not defined" unless defined $string1;
    croak "string2 not defined" unless defined $string2;
    croak "string1 isn't a string" if ref $string1;
    croak "string2 isn't a string" if ref $string2;

    my $result = _xpatch( $string1, $string2 );

    my @error = @{ $result->{error} };

    croak join '', "Unable to process the patch of string1 & string2: ", join ', ', @error if @error;

    return wantarray ?
        ( $result->{result},  $result->{rejected_result} ) :
        $result->{result};

}

sub bpatch {
    my $self = shift;
    my ($string1, $string2) = @_;

    croak "string1 not defined" unless defined $string1;
    croak "string2 not defined" unless defined $string2;
    croak "string1 isn't a string" if ref $string1;
    croak "string2 isn't a string" if ref $string2;

    my $result = _xbpatch( $string1, $string2 );

    my @error = @{ $result->{error} };

    croak join '', "Unable to process the patch of string1 & string2: ", join ', ', @error if @error;

    return wantarray ?
        ( $result->{result},  $result->{rejected_result} ) :
        $result->{result};
}

=head1 AUTHOR

Robert Krimen, C<< <rkrimen at cpan.org> >>

=head1 SEE ALSO

L<http://www.xmailserver.org/xdiff-lib.html>

L<Algorithm::Diff>

=head1 BUGS

Please report any bugs or feature requests to C<bug-diff-libxdiff at rt.cpan.org>, or through
the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Diff-LibXDiff>.  I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.




=head1 SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc Diff::LibXDiff


You can also look for information at:

=over 4

=item * RT: CPAN's request tracker

L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Diff-LibXDiff>

=item * AnnoCPAN: Annotated CPAN documentation

L<http://annocpan.org/dist/Diff-LibXDiff>

=item * CPAN Ratings

L<http://cpanratings.perl.org/d/Diff-LibXDiff>

=item * Search CPAN

L<http://search.cpan.org/dist/Diff-LibXDiff/>

=back


=head1 ACKNOWLEDGEMENTS


=head1 COPYRIGHT & LICENSE

Copyright 2009 Robert Krimen, all rights reserved.

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.


=cut

1; # End of Diff::LibXDiff