byp4a55 professor6T9

Linux newgen.247-hosting.com 3.10.0-962.3.2.lve1.5.73.el7.x86_64 #1 SMP Wed Aug 24 21:31:23 UTC 2022 x86_64
Apache
103.129.178.23

File Name : Kwalify.pm

=head1 NAME

CPAN::Kwalify - Interface between CPAN.pm and Kwalify.pm

=head1 SYNOPSIS

use CPAN::Kwalify;
  validate($schema_name, $data, $file, $doc);

=head1 DESCRIPTION

=over

=item _validate($schema_name, $data, $file, $doc)

$schema_name is the name of a supported schema. Currently only
C<distroprefs> is supported. $data is the data to be validated. $file
is the absolute path to the file the data are coming from. $doc is the
index of the document within $doc that is to be validated. The last
two arguments are only there for better error reporting.

Relies on being called from within CPAN.pm.

Dies if something fails. Does not return anything useful.

=item yaml($schema_name)

Returns the YAML text of that schema. Dies if something fails.

=back

=head1 AUTHOR

Andreas Koenig C<< <andk@cpan.org> >>

=head1 LICENSE

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

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

use strict;

package CPAN::Kwalify;
use vars qw($VERSION $VAR1);
$VERSION = "5.50";

use File::Spec ();

my %vcache = ();

my $schema_loaded = {};

sub _validate {
    my($schema_name,$data,$abs,$y) = @_;
    my $yaml_module = CPAN->_yaml_module;
    if (
        $CPAN::META->has_inst($yaml_module)
        &&
        $CPAN::META->has_inst("Kwalify")
       ) {
        my $load = UNIVERSAL::can($yaml_module,"Load");
        unless ($schema_loaded->{$schema_name}) {
            eval {
                my $schema_yaml = yaml($schema_name);
                $schema_loaded->{$schema_name} = $load->($schema_yaml);
            };
            if ($@) {
                # we know that YAML.pm 0.62 cannot parse the schema,
                # so we try a fallback
                my $content = do {
                    my $path = __FILE__;
                    $path =~ s/\.pm$//;
                    $path = File::Spec->catfile($path, "$schema_name.dd");
                    local *FH;
                    open FH, $path or die "Could not open '$path': $!";
                    local $/;
                    <FH>;
                };
                $VAR1 = undef;
                eval $content;
                if (my $err = $@) {
                    die "parsing of '$schema_name.dd' failed: $err";
                }
                $schema_loaded->{$schema_name} = $VAR1;
            }
        }
    }
    if (my $schema = $schema_loaded->{$schema_name}) {
        my $mtime = (stat $abs)[9];
        for my $k (keys %{$vcache{$abs}}) {
            delete $vcache{$abs}{$k} unless $k eq $mtime;
        }
        return if $vcache{$abs}{$mtime}{$y}++;
        eval { Kwalify::validate($schema, $data) };
        if (my $err = $@) {
            my $info = {}; yaml($schema_name, info => $info);
            die "validation of distropref '$abs'[$y] against schema '$info->{path}' failed: $err";
        }
    }
}

sub _clear_cache {
    %vcache = ();
}

sub yaml {
    my($schema_name, %opt) = @_;
    my $content = do {
        my $path = __FILE__;
        $path =~ s/\.pm$//;
        $path = File::Spec->catfile($path, "$schema_name.yml");
        if ($opt{info}) {
            $opt{info}{path} = $path;
        }
        local *FH;
        open FH, $path or die "Could not open '$path': $!";
        local $/;
        <FH>;
    };
    return $content;
}

# Local Variables:
# mode: cperl
# cperl-indent-level: 4
# End:

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2026-06-04 06:37:16
..	dir	-	root/root	0755	2026-06-04 06:37:16
API	dir	-	root/root	0755	2026-06-04 06:37:16
Exception	dir	-	root/root	0755	2026-06-04 06:37:16
FTP	dir	-	root/root	0755	2026-06-04 06:37:16
HTTP	dir	-	root/root	0755	2026-06-04 06:37:16
Kwalify	dir	-	root/root	0755	2026-06-04 06:37:16
LWP	dir	-	root/root	0755	2026-06-04 06:37:16
Plugin	dir	-	root/root	0755	2020-01-11 02:11:01
Admin.pm	text/plain	7.61 KB	root/root	0444	2018-11-27 02:51:46
Author.pm	text/plain	6.68 KB	root/root	0644	2026-05-29 05:13:12
Bundle.pm	text/plain	9.03 KB	root/root	0644	2026-05-29 05:13:12
CacheMgr.pm	text/plain	7.48 KB	root/root	0644	2026-05-29 05:13:12
Complete.pm	text/plain	5.85 KB	root/root	0644	2026-05-29 05:13:12
Config.pm	text/plain	9.35 KB	root/root	0644	2020-01-13 01:33:22
Debug.pm	text/plain	2.05 KB	root/root	0644	2026-05-29 05:13:12
DeferredCode.pm	text/plain	189 B	root/root	0644	2026-05-29 05:13:12
Distribution.pm	text/plain	145.09 KB	root/root	0644	2026-05-29 05:13:12
Distroprefs.pm	text/plain	10.84 KB	root/root	0644	2026-05-29 05:13:12
Distrostatus.pm	text/plain	972 B	root/root	0644	2026-05-29 05:13:12
FTP.pm	text/plain	41.19 KB	root/root	0644	2026-05-29 05:13:12
FirstTime.pm	text/plain	66.98 KB	root/root	0644	2026-05-29 05:13:12
HandleConfig.pm	text/plain	22.61 KB	root/root	0644	2026-05-29 05:13:12
Index.pm	text/plain	21.43 KB	root/root	0644	2026-05-29 05:13:12
InfoObj.pm	text/plain	6.75 KB	root/root	0644	2026-05-29 05:13:12
Kwalify.pm	text/plain	3.35 KB	root/root	0644	2026-05-29 05:13:12
Mirrors.pm	text/plain	14.55 KB	root/root	0644	2026-05-29 05:13:12
Module.pm	text/plain	21.52 KB	root/root	0644	2026-05-29 05:13:12
Nox.pm	text/plain	928 B	root/root	0644	2026-05-29 05:13:12
Plugin.pm	text/plain	3.14 KB	root/root	0444	2018-11-27 02:51:46
Prompt.pm	text/plain	567 B	root/root	0644	2026-05-29 05:13:12
Queue.pm	text/plain	6.31 KB	root/root	0644	2026-05-29 05:13:12
Shell.pm	text/plain	68.45 KB	root/root	0644	2026-05-29 05:13:12
Tarzip.pm	text/plain	15.69 KB	root/root	0644	2026-05-29 05:13:12
URL.pm	text/plain	588 B	root/root	0644	2026-05-29 05:13:12
Version.pm	text/plain	4.21 KB	root/root	0644	2026-05-29 05:13:12

Team Anon Force

https://t.me/Professor6T9x