Changeset 319
- Timestamp:
- 10/22/06 18:37:57 (2 years ago)
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
library/perl/trunk/HTML-Widget-Kwalify/lib/HTML/Widget/Kwalify.pm
r316 r319 8 8 9 9 use base qw( HTML::Widget ); 10 use YAML qw( LoadFile Dump );10 use YAML qw( LoadFile Dump DumpFile ); 11 11 use UNIVERSAL; 12 12 use CGI::Expand; … … 34 34 sub dump { 35 35 my $self = shift; 36 my $hash = expand_cgi($self->query);37 36 return Dump( expand_cgi($self->query) ); 37 } 38 39 sub dump_file { 40 my ( $self, $file ) = @_; 41 return DumpFile( $file, expand_cgi($self->query) ); 38 42 } 39 43 … … 169 173 return $e; 170 174 }; 171 172 175 } 173 176
