view release on metacpan or  search on metacpan

MP3.pm  view on Meta::CPAN

#################################################
# interesting configuration directives start here
#################################################

#utility subroutine for configuration
sub get_dir {
  my $self = shift;
  my ($config,$default) = @_;
  my $dir = $self->r->dir_config($config) || $default;
  return $dir if $dir =~ m!^/!;       # looks like a path
  return $dir if $dir =~ m!^\w+://!;  # looks like a URL
  return $self->default_dir . '/' . $dir;
}

# return true if downloads are allowed from this directory
sub download_ok {
  my $d = shift->r->dir_config('AllowDownload') || '';
  return $d !~ /$NO/oi;
}

# return true if streaming is allowed from this directory

MP3/L10N/Aliases.pm  view on Meta::CPAN

  require UNIVERSAL;
  my($superclass,$subclasses);
  while( ($superclass, $subclasses) = each %Aliases ) {
    my $superclass = 'Apache::MP3::L10N::' . lc($superclass);
    
    foreach my $subclass (ref($subclasses) ? @$subclasses : $subclasses) {
      no strict 'refs';
      my $subclass = 'Apache::MP3::L10N::' . lc($subclass);
      #print "setting \@$subclass\::ISA\n";
      
      @{$subclass . '::ISA'} = 'UNIVERSAL'; # just so it looks defined
      *{ $subclass . '::new'} = sub {
        unshift @_, $superclass;
        goto &autoload_and_new;
      };
    }
  }
}

1;