From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

LION / File-Information-v0.06 / lib / File / Information / Remote.pm 

            

              
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
97
98
99
100
101
102
103
104
105
106

              
# Copyright (c) 2024-2025 Löwenfelsen UG (haftungsbeschränkt)
# licensed under Artistic License 2.0 (see LICENSE file)
# ABSTRACT: generic module for extracting information from filesystems
package File::Information::Remote;
use v5.10;
use strict;
use warnings;
use parent 'File::Information::Base';
use Carp;
our $VERSION = v0.06;
my %_properties = (
    data_uriid_attr_displayname     => {loader => \&_load_data_uriid},
    data_uriid_attr_media_subtype   => {loader => \&_load_data_uriid, rawtype => 'mediatype'},
    data_uriid_attr_thumbnail       => {loader => \&_load_data_uriid},
    data_uriid_id                   => {loader => \&_load_data_uriid},
    data_uriid_ise                  => {loader => \&_load_data_uriid, rawtype => 'ise'},
    data_uriid_type                 => {loader => \&_load_data_uriid, rawtype => 'ise'},
    data_uriid_result               => {loader => \&_load_data_uriid, rawtype => 'Data::URIID::Result'},
);
# ----------------
sub _new {
    my ($pkg, %opts) = @_;
    my $self = $pkg->SUPER::_new(%opts, properties => \%_properties);
    return $self;
}
sub _load_data_uriid {
    my ($self) = @_;
    my $result = $self->{data_uriid_result} // return;
    my $pv = ($self->{properties_values} //= {})->{current} //= {};
    return if $self->{_loaded_data_uriid};
    $self->{_loaded_data_uriid} = 1;
    eval {$pv->{data_uriid_ise}  = {raw => $result->ise}};
    eval {$pv->{data_uriid_id}   = {raw => $result->id}};
    eval {$pv->{data_uriid_type} = {raw => $result->id_type(as => 'ise')}};
    $pv->{data_uriid_result} = {raw => $result};
    foreach my $digest ($result->available_keys('digest')) {
        my $value = $result->digest($digest, as => 'hex', default => undef) // next;
        $self->{digest}{current}{$digest} = $value;
    }
    foreach my $key (grep {/^data_uriid_attr_/} keys %_properties) {
        my $real_key = $key =~ s/^data_uriid_attr_//r;
        my $value = $result->attribute($real_key, as => 'string', default => undef) // next;
        $pv->{$key} = {raw => $value};
    }
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
File::Information::Remote - generic module for extracting information from filesystems
=head1 VERSION
version v0.06
=head1 SYNOPSIS
    use File::Information;
    my File::Information $instance = File::Information->new(%config);
    my File::Information::Remote $link = $instance->for_...(...);
B<Note:> This package inherits from L<File::Information::Base>.
This package represents a remote object (such as a remote hardlink or inode).
=head1 METHODS
=head1 AUTHOR
Löwenfelsen UG (haftungsbeschränkt) <support@loewenfelsen.net>
=head1 COPYRIGHT AND LICENSE
This software is Copyright (c) 2024-2025 by Löwenfelsen UG (haftungsbeschränkt) <support@loewenfelsen.net>.
This is free software, licensed under:
  The Artistic License 2.0 (GPL Compatible)
=cut