CPAN::Groonga

( $self ) {
	return '_build/main.scss';
}

sub raw_content ( $self ) {
	state $content = do { local $/ = <DATA> };
	if ( $self->project->root->child( 'custom.scss' )->is_file ) {
		return $content . q

$self ) {
	return '_build/layout.scss';
}

sub raw_content ( $self ) {
	state $content = do { local $/ = <DATA> };
	return $content;
}

1;

__DATA__

body {
	@extend .d-flex;
	@extend .flex-column;
	@

 = join(q[ ], map "$_\*.t", @{ $self->directories_containing_tests });
	
	my $makefile = do { local $/ = <DATA> };
	$makefile =~ s/%%%METADATA%%%/$dump/;
	$makefile =~ s/%%%SHARE%%%/$share/;
	$makefil

$file ne 'SCALAR';

        return $serializer->deserialize(
            $file =~ /^-/ ? do { local $/ = <STDIN> }
          : ref $file eq 'SCALAR' ? $$file
          : $file->$method,
            $o

    "HTML::Escape escape_html" => sub { bench_html_escape($input) },
});

}

my $input = do { local $/ = <DATA> };

say "random webpage";

say "escape_html(random webpage)";

cmpthese( -10, {
    "hou

ile
			-> new($self->uri->file)
			-> slurp
	}
	elsif (lc $self->uri->scheme eq 'stdin')
	{
		local $/ = <STDIN>;
		return $/;
	}
	else
	{
		return $self->response->decoded_content;
	}
}

sub _build_h

_path_to_perl => $Config{perlpath};

sub new
{
	shift;
}

sub _image
{
	state $image = do {
		local $/ = <DATA>;
		decode_base64($/);
	};
	return $image;
}

sub _find_shebang
{
	my ($class, $lines) = 

ice))
	{

		if (-f "$dir/$_")
		{
			my $content = do 
			{
				local @ARGV = "$dir/$_";
				local $/    = <ARGV>;
			};
			chomp $content if defined $content;
			$attributes{$_} = $content;
		}
	}
	r

rser = HTML::HTML5::Parser->new;
  my $dom = ($input eq '-')
    ? $parser->parse_string(do { local $/ = <STDIN> })
    : $parser->parse_file($input);
  
  # Use HTML::HTML5::Sanity to fix up HTML qui

shift || croak "cant open configuration file";

	open(IN, $infile) || return 0;
	my $s = do { local $/ = <IN> };
	close(IN);
	return 2 unless $s;
    $self->CONFIG( YAML::XS::Load($s) );
    
    warn

hift || croak "cant open configuration file";
	
	open(IN, $infile) || return 1;
	my $s = do { local $/ = <IN> };
    $self->{CONFIG} = YAML::XS::Load($s) || return 2;
    
    warn "Configuring from $

hift || croak "cant open configuration file";
	
	open(IN, $infile) || return 1;
	my $s = do { local $/ = <IN> };
    $self->{CONFIG} = YAML::XS::Load($s) || return 2;
    
    warn "Configuring from $

SKIP: {
	skip("cannot open file for reading: $!", 5) unless $file_is_ready;
	my $file = do { local $/ = <IN> };

	like( $file, qr/single\n/, 'key with value should be available' );
	like( $file, qr!/

SKIP: {
	skip("cannot open file for reading: $!", 5) unless $file_is_ready;
	my $file = do { local $/ = <IN> };

	like( $file, qr/single\n/, 'key with value should be available' );
	like( $file, qr!/

 );
}


SKIP: {
	skip("cannot read .bs file: $!", 2) unless $file_is_ready;

	my $file = do { local $/ = <IN> };

	# filename should be in header
	like( $file, qr/# dasboot DynaLoader/, 'file should h

{
	skip("cannot open dasboot.bs for reading: $!", 3) unless $file_is_ready;

	my $file = do { local $/ = <IN> };
	is( $out->read, "Writing dasboot.bs\n", 'should hush without Verbose set' );

	# and f