/usr/share/perl5/RDF/Query/Functions/Kasei.pm is in librdf-query-perl 2.918-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 | =head1 NAME
RDF::Query::Functions::Kasei - RDF-Query-specific functions
=head1 VERSION
This document describes RDF::Query::Functions::Kasei version 2.918.
=head1 DESCRIPTION
Defines the following functions:
=over
=item * http://kasei.us/2007/09/functions/warn
=item * http://kasei.us/code/rdf-query/functions/bloom
=item * http://kasei.us/code/rdf-query/functions/bloom/filter
=back
=cut
package RDF::Query::Functions::Kasei;
use strict;
use warnings;
use Log::Log4perl;
our ($VERSION, $l);
BEGIN {
$l = Log::Log4perl->get_logger("rdf.query.functions.kasei");
$VERSION = '2.918';
}
use Data::Dumper;
use Scalar::Util qw(blessed reftype refaddr looks_like_number);
=begin private
=item C<< install >>
Documented in L<RDF::Query::Functions>.
=end private
=cut
sub install
{
RDF::Query::Functions->install_function(
"http://kasei.us/2007/09/functions/warn",
sub {
my $query = shift;
my $value = shift;
my $func = RDF::Query::Expression::Function->new( 'sparql:str', $value );
my $string = Dumper( $func->evaluate( undef, undef, {} ) );
no warnings 'uninitialized';
warn "FILTER VALUE: $string\n";
return $value;
}
);
}
1;
__END__
=head1 AUTHOR
Gregory Williams <gwilliams@cpan.org>.
=cut
|