package Solution::Tag::Comment; { use strict; use warnings; our $VERSION = '0.9.1'; use lib '../../../lib'; use Solution::Error; BEGIN { our @ISA = qw[Solution::Tag]; } Solution->register_tag('comment') if $Solution::VERSION; sub new { my ($class, $args) = @_; raise Solution::ContextError {message => 'Missing template argument', fatal => 1 } if !defined $args->{'template'}; raise Solution::ContextError {message => 'Missing parent argument', fatal => 1 } if !defined $args->{'parent'}; if ($args->{'attrs'}) { raise Solution::SyntaxError { message => 'Bad argument list in ' . $args->{'markup'}, fatal => 1 }; } my $self = bless {name => '#-' . $1, nodelist => [], tag_name => $args->{'tag_name'}, end_tag => 'end' . $args->{'tag_name'}, template => $args->{'template'}, parent => $args->{'parent'}, markup => $args->{'markup'} }, $class; return $self; } sub render { } } 1; =pod =head1 NAME Solution::Tag::Comment - General Purpose Content Eater =head1 Synopsis I love you{% comment %} and your sister {% endcomment %}. =head1 Description C is the simplest tag. Child nodes are not rendered so it effectivly swallows content. {% for article in articles %}

{{ article.title | capitalize }}

{% comment %} Unless we're viewing a single article, we will truncate article.body at 50 words and insert a 'Read more' link. {% endcomment %} ...
{% endfor %} Code inside a C tag is not executed during rendering. So, this... {% assign str = 'Initial value' %} {% comment %} {% assign str = 'Different value' %} {% endcomment %} {{ str }} ...would print C. =head1 See Also Liquid for Designers: http://wiki.github.com/tobi/liquid/liquid-for-designers L's docs on custom filter creation =head1 Author Sanko Robinson - http://sankorobinson.com/ The original Liquid template system was developed by jadedPixel (http://jadedpixel.com/) and Tobias Lütke (http://blog.leetsoft.com/). =head1 License and Legal Copyright (C) 2009-2012 by Sanko Robinson Esanko@cpan.orgE This program is free software; you can redistribute it and/or modify it under the terms of The Artistic License 2.0. See the F file included with this distribution or http://www.perlfoundation.org/artistic_license_2_0. For clarification, see http://www.perlfoundation.org/artistic_2_0_notes. When separated from the distribution, all original POD documentation is covered by the Creative Commons Attribution-Share Alike 3.0 License. See http://creativecommons.org/licenses/by-sa/3.0/us/legalcode. For clarification, see http://creativecommons.org/licenses/by-sa/3.0/us/. =cut