byp4a55 professor6T9

Linux 98.35.109.208.host.secureserver.net 5.14.0-570.51.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Oct 8 09:41:34 EDT 2025 x86_64
Apache
208.109.35.98

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	2025-05-21 01:42:09
..	dir	-	root/root	0755	2025-07-28 03:53:59
API	dir	-	root/root	0755	2025-05-21 01:42:09
Exception	dir	-	root/root	0755	2025-05-21 01:42:09
FTP	dir	-	root/root	0755	2025-05-21 01:42:09
HTTP	dir	-	root/root	0755	2025-05-21 01:42:09
Kwalify	dir	-	root/root	0755	2025-05-21 01:42:09
LWP	dir	-	root/root	0755	2025-05-21 01:42:09
Meta	dir	-	root/root	0755	2024-02-28 12:52:15
Plugin	dir	-	root/root	0755	2025-05-21 01:42:09
Admin.pm	file	7.61 KB	root/root	0644	2025-05-13 09:00:13
Author.pm	file	6.68 KB	root/root	0644	2025-05-13 09:00:13
Bundle.pm	file	9.91 KB	root/root	0644	2025-05-13 09:00:13
CacheMgr.pm	file	7.48 KB	root/root	0644	2025-05-13 09:00:13
Complete.pm	file	5.88 KB	root/root	0644	2025-05-13 09:00:13
Debug.pm	file	2.05 KB	root/root	0644	2025-05-13 09:00:13
DeferredCode.pm	file	189 B	root/root	0644	2025-05-13 09:00:13
DistnameInfo.pm	file	4.99 KB	root/root	0644	2011-03-11 11:36:27
Distribution.pm	file	178.76 KB	root/root	0644	2025-05-13 09:00:13
Distroprefs.pm	file	11.71 KB	root/root	0644	2025-05-13 09:00:13
Distrostatus.pm	file	972 B	root/root	0644	2025-05-13 09:00:13
FTP.pm	file	48.2 KB	root/root	0644	2025-05-13 09:00:13
FirstTime.pm	file	73.42 KB	root/root	0644	2025-05-13 09:00:13
HandleConfig.pm	file	23.62 KB	root/root	0644	2025-05-13 09:00:13
Index.pm	file	21.71 KB	root/root	0644	2025-05-13 09:00:13
InfoObj.pm	file	6.75 KB	root/root	0644	2025-05-13 09:00:13
Kwalify.pm	file	3.35 KB	root/root	0644	2025-05-13 09:00:13
Meta.pm	file	29.56 KB	root/root	0644	2016-08-18 04:10:32
Mirrors.pm	file	17.82 KB	root/root	0644	2025-05-13 09:00:13
Module.pm	file	21.87 KB	root/root	0644	2025-05-13 09:00:13
Nox.pm	file	953 B	root/root	0644	2025-05-13 09:00:13
Plugin.pm	file	3.14 KB	root/root	0644	2025-05-13 09:00:13
Prompt.pm	file	567 B	root/root	0644	2025-05-13 09:00:13
Queue.pm	file	6.96 KB	root/root	0644	2025-05-13 09:00:13
Shell.pm	file	71.96 KB	root/root	0644	2025-05-13 09:00:13
Tarzip.pm	file	16.25 KB	root/root	0644	2025-05-13 09:00:13
URL.pm	file	588 B	root/root	0644	2025-05-13 09:00:13
Version.pm	file	4.29 KB	root/root	0644	2025-05-13 09:00:13

Team Anon Force

https://t.me/Professor6T9x