31 lines
669 B
Raku
31 lines
669 B
Raku
use v6.e.PREVIEW;
|
|
|
|
use JSON::Class:auth<zef:vrurg>;
|
|
|
|
# Top level metadata for the blog
|
|
unit class BlogMeta is json(:pretty);
|
|
|
|
#| The title of the blog
|
|
has Str:D $.title is required is rw;
|
|
|
|
#| The tagline of the blog
|
|
has Str:D $.tagline is required is rw;
|
|
|
|
#| The id of the placeholder post
|
|
has Int:D $.placeholder-id is rw = 0;
|
|
|
|
#| The id of the about post
|
|
has Int:D $.about-id is rw = 0;
|
|
|
|
#| The base url of this post
|
|
has Str:D $.base-url is required;
|
|
|
|
#| Return the base url, but substitute it out if the test environment variable
|
|
#| is set
|
|
method get-base-url(--> Str:D) {
|
|
if %*ENV<BLOG_TEST> {
|
|
"http://localhost:8080"
|
|
} else {
|
|
$!base-url
|
|
}
|
|
}
|