Slug role

davorg · Apr 19, 2019 · a3dfe1c · a3dfe1c
1 parent 28e2578
commit a3dfe1c
Showing 1 changed file with 18 additions and 0 deletions.
diff --git a/Literature/lib/Literature/Role/HasSlug.pm b/Literature/lib/Literature/Role/HasSlug.pm
@@ -0,0 +1,18 @@
+package Literature::Role::HasSlug;
+
+use Moose::Role;
+
+requires qw[slug slug_cols];
+
+sub make_slug {
+  my $self = shift;
+
+  my $slug = lc join '_', map { $self->$_ } $self->slug_cols;
+
+  $slug =~ s/\s+/-/g;
+  $slug =~ s/[^-\w]+//g;
+
+  return $slug;
+}
+
+1;