Gecko [ www.vortexaion.com ]

Name	Size	Permission	Date
Asset	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Content	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Cookie	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
DOM	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
IOLoop	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
JSON	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Message	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Reactor	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Server	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Transaction	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
UserAgent	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
resources	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Asset.pm	3.12 KB	-rw-rw-rw-	2021-01-17 16:57
Base.pm	11.48 KB	-rw-rw-rw-	2021-01-17 16:57
ByteStream.pm	8.23 KB	-rw-rw-rw-	2021-01-17 16:57
Cache.pm	1.3 KB	-rw-rw-rw-	2021-01-17 16:57
Collection.pm	10.13 KB	-rw-rw-rw-	2021-01-17 16:57
Content.pm	14.51 KB	-rw-rw-rw-	2021-01-17 16:57
Cookie.pm	1.56 KB	-rw-rw-rw-	2021-01-17 16:57
DOM.pm	30.11 KB	-rw-rw-rw-	2021-01-17 16:57
Date.pm	4.46 KB	-rw-rw-rw-	2021-01-17 16:57
DynamicMethods.pm	2.92 KB	-rw-rw-rw-	2021-01-17 16:57
EventEmitter.pm	3.38 KB	-rw-rw-rw-	2021-01-17 16:57
Exception.pm	10.03 KB	-rw-rw-rw-	2021-01-17 16:57
File.pm	12.88 KB	-rw-rw-rw-	2021-01-17 16:57
Headers.pm	19.2 KB	-rw-rw-rw-	2021-01-17 16:57
HelloWorld.pm	883 B	-rw-rw-rw-	2021-01-17 16:57
Home.pm	1.64 KB	-rw-rw-rw-	2021-01-17 16:57
IOLoop.pm	17.77 KB	-rw-rw-rw-	2021-01-17 16:57
JSON.pm	8.95 KB	-rw-rw-rw-	2021-01-17 16:57
Loader.pm	5.09 KB	-rw-rw-rw-	2021-01-17 16:57
Log.pm	6.72 KB	-rw-rw-rw-	2021-01-17 16:57
Message.pm	17.13 KB	-rw-rw-rw-	2021-01-17 16:57
Parameters.pm	8.75 KB	-rw-rw-rw-	2021-01-17 16:57
Path.pm	7.92 KB	-rw-rw-rw-	2021-01-17 16:57
Promise.pm	14.81 KB	-rw-rw-rw-	2021-01-17 16:57
Reactor.pm	5.6 KB	-rw-rw-rw-	2021-01-17 16:57
Server.pm	4.37 KB	-rw-rw-rw-	2021-01-17 16:57
Template.pm	17.8 KB	-rw-rw-rw-	2021-01-17 16:57
Transaction.pm	6.85 KB	-rw-rw-rw-	2021-01-17 16:57
URL.pm	12.53 KB	-rw-rw-rw-	2021-01-17 16:57
Upload.pm	1.57 KB	-rw-rw-rw-	2021-01-17 16:57
UserAgent.pm	34.04 KB	-rw-rw-rw-	2021-01-17 16:57
Util.pm	22.59 KB	-rw-rw-rw-	2021-01-17 16:57
WebSocket.pm	7.1 KB	-rw-rw-rw-	2021-01-17 16:57

Rename

package Mojo::Loader;
use Mojo::Base -strict;

use Exporter qw(import);
use Mojo::Exception;
use Mojo::File qw(path);
use Mojo::Util qw(b64_decode class_to_path);

our @EXPORT_OK = qw(data_section file_is_binary find_modules find_packages load_class load_classes);

my (%BIN, %CACHE);

sub data_section { $_[0] ? $_[1] ? _all($_[0])->{$_[1]} : _all($_[0]) : undef }

sub file_is_binary { keys %{_all($_[0])} ? !!$BIN{$_[0]}{$_[1]} : undef }

sub find_modules {
  my ($ns, $options) = (shift, shift // {});

my @ns  = split /::/, $ns;
  my @inc = grep { -d $$_ } map { path($_, @ns) } @INC;

my %modules;
  for my $dir (@inc) {
    for my $file ($options->{recursive} ? $dir->list_tree->each : $dir->list->each) {
      next unless $$file =~ s/\.pm$//;
      $modules{join('::', $ns, @{$file->to_rel($$dir)})}++;
    }
  }

return sort keys %modules;
}

sub find_packages {
  my $ns = shift;
  no strict 'refs';
  return sort map { /^(.+)::$/ ? "${ns}::$1" : () } keys %{"${ns}::"};
}

sub load_class {
  my $class = shift;

# Invalid class name
  return 1 if ($class || '') !~ /^\w(?:[\w:']*\w)?$/;

# Load if not already loaded
  return undef if $class->can('new') || eval "require $class; 1";

# Does not exist
  return 1 if $@ =~ /^Can't locate \Q@{[class_to_path $class]}\E in \@INC/;

# Real error
  return Mojo::Exception->new($@)->inspect;
}

sub load_classes {
  my $ns = shift;

my @classes;
  for my $module (find_modules($ns, {recursive => 1})) {
    push @classes, $module unless my $e = load_class($module);
    die $e if ref $e;
  }

return @classes;
}

sub _all {
  my $class = shift;

return $CACHE{$class} if $CACHE{$class};
  local $.;
  my $handle = do { no strict 'refs'; \*{"${class}::DATA"} };
  return {} unless fileno $handle;
  seek $handle, 0, 0;
  my $data = join '', <$handle>;

# Ignore everything before __DATA__ (some versions seek to start of file)
  $data =~ s/^.*\n__DATA__\r?\n/\n/s;

# Ignore everything after __END__
  $data =~ s/\n__END__\r?\n.*$/\n/s;

# Split files
  (undef, my @files) = split /^@@\s*(.+?)\s*\r?\n/m, $data;

# Find data
  my $all = $CACHE{$class} = {};
  while (@files) {
    my ($name, $data) = splice @files, 0, 2;
    $all->{$name} = $name =~ s/\s*$\s*base64\s*$$// && ++$BIN{$class}{$name} ? b64_decode $data : $data;
  }

return $all;
}

=encoding utf8

=head1 NAME

Mojo::Loader - Load all kinds of things

=head1 SYNOPSIS

use Mojo::Loader qw(data_section find_modules load_class);

# Find modules in a namespace
  for my $module (find_modules 'Some::Namespace') {

# Load them safely
    my $e = load_class $module;
    warn qq{Loading "$module" failed: $e} and next if ref $e;

# And extract files from the DATA section
    say data_section($module, 'some_file.txt');
  }

=head1 DESCRIPTION

L<Mojo::Loader> is a class loader and plugin framework. Aside from finding modules and loading classes, it allows
multiple files to be stored in the C<DATA> section of a class, which can then be accessed individually.

package Foo;

1;
  __DATA__

@@ test.txt
  This is the first file.

@@ test2.html (base64)
  VGhpcyBpcyB0aGUgc2Vjb25kIGZpbGUu

@@ test
  This is the
  third file.

Each file has a header starting with C<@@>, followed by the file name and optional instructions for decoding its
content. Currently only the Base64 encoding is supported, which can be quite convenient for the storage of binary data.

=head1 FUNCTIONS

L<Mojo::Loader> implements the following functions, which can be imported individually.

=head2 data_section

my $all   = data_section 'Foo::Bar';
  my $index = data_section 'Foo::Bar', 'index.html';

Extract embedded file from the C<DATA> section of a class, all files will be cached once they have been accessed for
the first time.

# List embedded files
  say for keys %{data_section 'Foo::Bar'};

=head2 file_is_binary

my $bool = file_is_binary 'Foo::Bar', 'test.png';

Check if embedded file from the C<DATA> section of a class was Base64 encoded.

=head2 find_packages

my @pkgs = find_packages 'MyApp::Namespace';

Search for packages in a namespace non-recursively.

=head2 find_modules

my @modules = find_modules 'MyApp::Namespace';
  my @modules = find_modules 'MyApp::Namespace', {recursive => 1};

Search for modules in a namespace.

These options are currently available:

=over 2

=item recursive

recursive => 1

Search namespace recursively.

=back

=head2 load_class

my $e = load_class 'Foo::Bar';

Load a class and catch exceptions, returns a false value if loading was successful, a true value if the class was not
found, or a L<Mojo::Exception> object if loading failed. Note that classes are checked for a C<new> method to see if
they are already loaded, so trying to load the same class multiple times may yield different results.

# Handle exceptions
  if (my $e = load_class 'Foo::Bar') {
    die ref $e ? "Exception: $e" : 'Not found!';
  }

=head2 load_classes

my @classes = load_classes 'Foo::Bar';

Load all classes in a namespace recursively. Note that this function is B<EXPERIMENTAL> and might change without
warning!

=head1 SEE ALSO

L<Mojolicious>, L<Mojolicious::Guides>, L<https://mojolicious.org>.

=cut