New --min-skirt-length option. #269

2026-07-23 10:04:26 +00:00 · 2012-10-29 11:17:57 +01:00
parent c25e54a830
commit e9ae62a9d1
6 changed files with 49 additions and 6 deletions
@@ -55,4 +55,10 @@ sub mm3_per_mm {
    return $self->_mm3_per_mm_cache->{$cache_key};
 }

+sub e_per_mm {
+    my $self = shift;
+    my ($s, $h) = @_;
+    return $self->mm3_per_mm($s, $h) * $self->e_per_mm3;
+}
+
 1;