view release on metacpan or  search on metacpan

lib/Salvation/Service/View/Stack/Convert/To/XML.pm  view on Meta::CPAN

		before_frame_single => sub{
			my $frame = shift;

			$writer -> startTag( $frame_tag_name,
					     title => $frame -> cap(),
					     name  => $frame -> fname(),
					     type  => $frame -> ftype() );
		},
		after_frame_single  => sub{ $writer -> endTag( $frame_tag_name ) },

		raw => sub{ $writer -> cdata( shift or '' ) }
	);

	foreach my $event ( keys %default_events )
	{
		unless( exists $args -> { 'events' } -> { $event } )
		{
			$args -> { 'events' } -> { $event } = $default_events{ $event };
		}
	}