view release on metacpan or  search on metacpan

lib/JavaScript/Prepare.pm  view on Meta::CPAN

    else {
        return $self->process_string( $content );
    }
}
sub process_control_file {
    my $self = shift;
    my $file = shift;
    
    my $dir     = dirname $file;
    my $content = $self->read_file( $file );
    my @lines   = split m{\n}, $content;
    
    my $minified = '';
    foreach my $line ( @lines ) {
        # 
        $line =~ m{
            ^ 
                ( \S+ )?            # $1: a filename
                \s* (?: \# .* )?    # optional comment
            $
        }x;