Proper Moose setup for addRevision...

This commit is contained in:
Colin Kuskie 2010-04-06 16:13:02 -07:00
parent 64f7bd9365
commit dee5bbe5d0
8 changed files with 58 additions and 120 deletions

View file

@ -126,20 +126,6 @@ These methods are available from this class:
#-------------------------------------------------------------------
=head2 addRevision ( properties, ... )
Force the packed snippet to be regenerated.
=cut
sub addRevision {
my ( $self, $properties, @args ) = @_;
delete $properties->{ snippetPacked };
return $self->SUPER::addRevision( $properties, @args );
}
#-------------------------------------------------------------------
=head2 exportGetUrlAsPath ( index )