view release on metacpan or  search on metacpan

lib/Ravenel/Document.pm  view on Meta::CPAN

		}
		$self->{'prefix'}                    ||= 'r:';
		$self->{'dynamic'}                     = $option->{'dynamic'};

		confess("'arguments' is invalid when generating a package (dynamic=$self->{'dynamic'})") if ( $self->{'arguments'} and $self->{'dynamic'} == 0 );

		$self->{'document_is_totally_dynamic'} = $option->{'document_is_totally_dynamic'};
		$self->{'arguments'}                   = $option->{'arguments'};
		$self->{'tags'}                        = [];
		$self->{'functions'}                   = $option->{'functions'};
		$self->{'caller'}                      = $option->{'caller'} || (caller)[1];
 		if ( not $self->{'dynamic'} ) { # if static
			confess("'name' required if not dynamically generated (dynamic=$self->{'dynamic'}, name=$self->{'name'})") if ( not $self->{'name'} );

			# get the libraries
			$self->{'lib_path'} = &get_libraries();
		}

		# replace wrap!
		$self->{'document'} = "<r:replace>$self->{'document'}</r:replace>" if ( $option->{'replace_wrap'} );
	}

lib/Ravenel/Document.pm  view on Meta::CPAN

	return;
}

sub render {
	my $class  = shift;
        my $option = shift;
        
        confess("Option hash required") if ( not $option or not ref($option) );

        $option->{'dynamic'} = ( defined($option->{'dynamic'}) ? $option->{'dynamic'} : 1 );
	$option->{'caller'} = (caller)[1];

        my Ravenel::Document $document = new Ravenel::Document($option);

        $document->{'document_is_totally_dynamic'} = $option->{'dynamic'};

	return $document->parse();
}

1;