--- trunk/lib/Frey/Web.pm 2008/12/05 17:33:00 725
+++ trunk/lib/Frey/Web.pm 2008/12/09 20:31:42 781
@@ -184,6 +184,17 @@
| );
}
+sub add_js {
+ my ($self,$css) = @_;
+ my ( $package, $path, $line ) = caller;
+ $self->add_head( qq|
+
+ | );
+}
+
our $reload_counter = 0;
@@ -668,4 +679,20 @@
qq||;
}
+=head2 strip
+
+Strip whitespace around content
+
+ my $stripped = strip(' no more whitespace around this ');
+
+=cut
+
+sub strip {
+ my $t = shift;
+ $t =~ s{^\s+}{}gs;
+ $t =~ s{>\s+<}{><}gs;
+ $t =~ s{\s+$}{}gs;
+ return $t;
+}
+
1;