File Coverage

blib/lib/Archive/Tar/Builder/HardlinkCache.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch	2	2	100.0
condition			n/a
subroutine	4	4	100.0
pod	0	2	0.0
total	19	21	90.4

package Archive::Tar::Builder::HardlinkCache;

# Copyright (c) 2019, cPanel, L.L.C.
# All rights reserved.
# http://cpanel.net/
#
# This is free software; you can redistribute it and/or modify it under the same
# terms as Perl itself.  See the LICENSE file for further details.

use strict;
use warnings;

=head1 NAME

Archive::Tar::Builder::HardlinkCache - Index of hardlinked files

=head1 DESCRIPTION

L is a cache of hardlinked files, indexed
by device and inode number, containing the first paths encountered of
hardlinked files.

This module is intended for internal use.

=cut

sub new {
    my ($class) = @_;

    return bless {}, $class;
}

sub lookup {
    my ($self, $dev, $ino, $path) = @_;

    if (exists $self->{$dev}->{$ino}) {
        return $self->{$dev}->{$ino};
    }

    $self->{$dev}->{$ino} = $path;

    return;
}

=head1 COPYRIGHT

Copyright (c) 2019, cPanel, L.L.C.
All rights reserved.
http://cpanel.net/

This is free software; you can redistribute it and/or modify it under the same
terms as Perl itself.  See L for further details.

=cut

1;