--- trunk/lib/Frey/Web.pm	2008/11/20 13:57:38	477
+++ trunk/lib/Frey/Web.pm	2008/11/20 14:39:43	480
@@ -229,6 +229,31 @@
 	return $html;
 }
 
+=head2 editor
+
+Create HTML editor link with optional line and title
+
+  my $html = $self->editor( $class, $line, $title );
+
+=cut
+
+sub editor {
+	my ( $self, $class, $line, $title ) = @_;
+	confess "need class" unless $class;
+	$line ||= 1;
+	qq|<a target="editor" href="/editor+$class+$line"| .
+	( $title ? qq| title="$title"| : '' ) .
+	qq|>$class</a>|;
+}
+
+=head2 editor_links
+
+Create HTML links to editor for perl error message
+
+  my $html = $self->editor_links( $error )
+
+=cut
+
 sub editor_links {
 	my ( $self, $error ) = @_;