aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPatrick Spek <p.spek@tyil.nl>2020-04-19 10:52:06 +0200
committerPatrick Spek <p.spek@tyil.nl>2020-04-19 10:52:06 +0200
commitfc8c808304e93d23ff834df3941937150fc73346 (patch)
tree700a6d8aa03264340d182cac6534fb902efa58a8
downloadApp::DbMigrator-master.tar.gz
App::DbMigrator-master.tar.bz2
Initial commitHEADmaster
-rw-r--r--LICENSE.txt575
-rw-r--r--META6.json37
-rw-r--r--README.rakudoc40
-rw-r--r--bin/db-migrate17
-rw-r--r--lib/App/DbMigrator.rakumod83
-rw-r--r--lib/App/DbMigrator/Bin/Config.rakumod44
-rw-r--r--lib/App/DbMigrator/Bin/Down.rakumod94
-rw-r--r--lib/App/DbMigrator/Bin/Init.rakumod78
-rw-r--r--lib/App/DbMigrator/Bin/List.rakumod74
-rw-r--r--lib/App/DbMigrator/Bin/Up.rakumod100
-rw-r--r--lib/App/DbMigrator/Config.rakumod100
-rw-r--r--lib/App/DbMigrator/DB.rakumod189
-rw-r--r--lib/App/DbMigrator/Util.rakumod85
-rw-r--r--resources/sql/check-migration-table-exists.sql6
-rw-r--r--resources/sql/create-migration-table.sql5
-rw-r--r--resources/sql/delete-migration.sql4
-rw-r--r--resources/sql/insert-migration.sql1
-rw-r--r--resources/sql/select-migration.sql5
18 files changed, 1537 insertions, 0 deletions
diff --git a/LICENSE.txt b/LICENSE.txt
new file mode 100644
index 0000000..ac9e23d
--- /dev/null
+++ b/LICENSE.txt
@@ -0,0 +1,575 @@
+ GNU AFFERO GENERAL PUBLIC LICENSE
+ Version 3, 19 November 2007
+
+Copyright (C) 2007 Free Software Foundation, Inc. <http://fsf.org/> Everyone is
+permitted to copy and distribute verbatim copies of this license document, but
+changing it is not allowed.
+
+ Preamble
+
+The GNU Affero General Public License is a free, copyleft license for software
+and other kinds of works, specifically designed to ensure cooperation with the
+community in the case of network server software.
+
+The licenses for most software and other practical works are designed to take
+away your freedom to share and change the works. By contrast, our General
+Public Licenses are intended to guarantee your freedom to share and change all
+versions of a program--to make sure it remains free software for all its users.
+
+When we speak of free software, we are referring to freedom, not price. Our
+General Public Licenses are designed to make sure that you have the freedom to
+distribute copies of free software (and charge for them if you wish), that you
+receive source code or can get it if you want it, that you can change the
+software or use pieces of it in new free programs, and that you know you can do
+these things.
+
+Developers that use our General Public Licenses protect your rights with two
+steps: (1) assert copyright on the software, and (2) offer you this License
+which gives you legal permission to copy, distribute and/or modify the
+software.
+
+A secondary benefit of defending all users' freedom is that improvements made
+in alternate versions of the program, if they receive widespread use, become
+available for other developers to incorporate. Many developers of free
+software are heartened and encouraged by the resulting cooperation. However,
+in the case of software used on network servers, this result may fail to come
+about. The GNU General Public License permits making a modified version and
+letting the public access it on a server without ever releasing its source code
+to the public.
+
+The GNU Affero General Public License is designed specifically to ensure that,
+in such cases, the modified source code becomes available to the community. It
+requires the operator of a network server to provide the source code of the
+modified version running there to the users of that server. Therefore, public
+use of a modified version, on a publicly accessible server, gives the public
+access to the source code of the modified version.
+
+An older license, called the Affero General Public License and published by
+Affero, was designed to accomplish similar goals. This is a different license,
+not a version of the Affero GPL, but Affero has released a new version of the
+Affero GPL which permits relicensing under this license.
+
+The precise terms and conditions for copying, distribution and modification
+follow.
+
+ TERMS AND CONDITIONS
+
+0. Definitions.
+
+"This License" refers to version 3 of the GNU Affero General Public License.
+
+"Copyright" also means copyright-like laws that apply to other kinds of works,
+such as semiconductor masks.
+
+"The Program" refers to any copyrightable work licensed under this License.
+Each licensee is addressed as "you". "Licensees" and "recipients" may be
+individuals or organizations.
+
+To "modify" a work means to copy from or adapt all or part of the work in a
+fashion requiring copyright permission, other than the making of an exact copy.
+The resulting work is called a "modified version" of the earlier work or a work
+"based on" the earlier work.
+
+A "covered work" means either the unmodified Program or a work based on the
+Program.
+
+To "propagate" a work means to do anything with it that, without permission,
+would make you directly or secondarily liable for infringement under applicable
+copyright law, except executing it on a computer or modifying a private copy.
+Propagation includes copying, distribution (with or without modification),
+making available to the public, and in some countries other activities as well.
+
+To "convey" a work means any kind of propagation that enables other parties to
+make or receive copies. Mere interaction with a user through a computer
+network, with no transfer of a copy, is not conveying.
+
+An interactive user interface displays "Appropriate Legal Notices" to the
+extent that it includes a convenient and prominently visible feature that (1)
+displays an appropriate copyright notice, and (2) tells the user that there is
+no warranty for the work (except to the extent that warranties are provided),
+that licensees may convey the work under this License, and how to view a copy
+of this License. If the interface presents a list of user commands or options,
+such as a menu, a prominent item in the list meets this criterion.
+
+1. Source Code.
+
+The "source code" for a work means the preferred form of the work for making
+modifications to it. "Object code" means any non-source form of a work.
+
+A "Standard Interface" means an interface that either is an official standard
+defined by a recognized standards body, or, in the case of interfaces specified
+for a particular programming language, one that is widely used among developers
+working in that language.
+
+The "System Libraries" of an executable work include anything, other than the
+work as a whole, that (a) is included in the normal form of packaging a Major
+Component, but which is not part of that Major Component, and (b) serves only
+to enable use of the work with that Major Component, or to implement a Standard
+Interface for which an implementation is available to the public in source code
+form. A "Major Component", in this context, means a major essential component
+(kernel, window system, and so on) of the specific operating system (if any) on
+which the executable work runs, or a compiler used to produce the work, or an
+object code interpreter used to run it.
+
+The "Corresponding Source" for a work in object code form means all the source
+code needed to generate, install, and (for an executable work) run the object
+code and to modify the work, including scripts to control those activities.
+However, it does not include the work's System Libraries, or general-purpose
+tools or generally available free programs which are used unmodified in
+performing those activities but which are not part of the work. For example,
+Corresponding Source includes interface definition files associated with source
+files for the work, and the source code for shared libraries and dynamically
+linked subprograms that the work is specifically designed to require, such as
+by intimate data communication or control flow between those subprograms and
+other parts of the work.
+
+The Corresponding Source need not include anything that users can regenerate
+automatically from other parts of the Corresponding Source.
+
+The Corresponding Source for a work in source code form is that same work.
+
+2. Basic Permissions.
+
+All rights granted under this License are granted for the term of copyright on
+the Program, and are irrevocable provided the stated conditions are met. This
+License explicitly affirms your unlimited permission to run the unmodified
+Program. The output from running a covered work is covered by this License
+only if the output, given its content, constitutes a covered work. This
+License acknowledges your rights of fair use or other equivalent, as provided
+by copyright law.
+
+You may make, run and propagate covered works that you do not convey, without
+conditions so long as your license otherwise remains in force. You may convey
+covered works to others for the sole purpose of having them make modifications
+exclusively for you, or provide you with facilities for running those works,
+provided that you comply with the terms of this License in conveying all
+material for which you do not control copyright. Those thus making or running
+the covered works for you must do so exclusively on your behalf, under your
+direction and control, on terms that prohibit them from making any copies of
+your copyrighted material outside their relationship with you.
+
+Conveying under any other circumstances is permitted solely under the
+conditions stated below. Sublicensing is not allowed; section 10 makes it
+unnecessary.
+
+3. Protecting Users' Legal Rights From Anti-Circumvention Law.
+
+No covered work shall be deemed part of an effective technological measure
+under any applicable law fulfilling obligations under article 11 of the WIPO
+copyright treaty adopted on 20 December 1996, or similar laws prohibiting or
+restricting circumvention of such measures.
+
+When you convey a covered work, you waive any legal power to forbid
+circumvention of technological measures to the extent such circumvention is
+effected by exercising rights under this License with respect to the covered
+work, and you disclaim any intention to limit operation or modification of the
+work as a means of enforcing, against the work's users, your or third parties'
+legal rights to forbid circumvention of technological measures.
+
+4. Conveying Verbatim Copies.
+
+You may convey verbatim copies of the Program's source code as you receive it,
+in any medium, provided that you conspicuously and appropriately publish on
+each copy an appropriate copyright notice; keep intact all notices stating that
+this License and any non-permissive terms added in accord with section 7 apply
+to the code; keep intact all notices of the absence of any warranty; and give
+all recipients a copy of this License along with the Program.
+
+You may charge any price or no price for each copy that you convey, and you may
+offer support or warranty protection for a fee.
+
+5. Conveying Modified Source Versions.
+
+You may convey a work based on the Program, or the modifications to produce it
+from the Program, in the form of source code under the terms of section 4,
+provided that you also meet all of these conditions:
+
+ a) The work must carry prominent notices stating that you modified it, and
+ giving a relevant date.
+
+ b) The work must carry prominent notices stating that it is released under
+ this License and any conditions added under section 7. This requirement
+ modifies the requirement in section 4 to "keep intact all notices".
+
+ c) You must license the entire work, as a whole, under this License to
+ anyone who comes into possession of a copy. This License will therefore
+ apply, along with any applicable section 7 additional terms, to the
+ whole of the work, and all its parts, regardless of how they are
+ packaged. This License gives no permission to license the work in any
+ other way, but it does not invalidate such permission if you have
+ separately received it.
+
+ d) If the work has interactive user interfaces, each must display
+ Appropriate Legal Notices; however, if the Program has interactive
+ interfaces that do not display Appropriate Legal Notices, your work need
+ not make them do so.
+
+A compilation of a covered work with other separate and independent works,
+which are not by their nature extensions of the covered work, and which are not
+combined with it such as to form a larger program, in or on a volume of a
+storage or distribution medium, is called an "aggregate" if the compilation and
+its resulting copyright are not used to limit the access or legal rights of the
+compilation's users beyond what the individual works permit. Inclusion of a
+covered work in an aggregate does not cause this License to apply to the other
+parts of the aggregate.
+
+6. Conveying Non-Source Forms.
+
+You may convey a covered work in object code form under the terms of sections 4
+and 5, provided that you also convey the machine-readable Corresponding Source
+under the terms of this License, in one of these ways:
+
+ a) Convey the object code in, or embodied in, a physical product (including
+ a physical distribution medium), accompanied by the Corresponding Source
+ fixed on a durable physical medium customarily used for software
+ interchange.
+
+ b) Convey the object code in, or embodied in, a physical product (including
+ a physical distribution medium), accompanied by a written offer, valid
+ for at least three years and valid for as long as you offer spare parts
+ or customer support for that product model, to give anyone who possesses
+ the object code either (1) a copy of the Corresponding Source for all
+ the software in the product that is covered by this License, on a
+ durable physical medium customarily used for software interchange, for a
+ price no more than your reasonable cost of physically performing this
+ conveying of source, or (2) access to copy the Corresponding Source from
+ a network server at no charge.
+
+ c) Convey individual copies of the object code with a copy of the written
+ offer to provide the Corresponding Source. This alternative is allowed
+ only occasionally and noncommercially, and only if you received the
+ object code with such an offer, in accord with subsection 6b.
+
+ d) Convey the object code by offering access from a designated place
+ (gratis or for a charge), and offer equivalent access to the
+ Corresponding Source in the same way through the same place at no
+ further charge. You need not require recipients to copy the
+ Corresponding Source along with the object code. If the place to copy
+ the object code is a network server, the Corresponding Source may be on
+ a different server (operated by you or a third party) that supports
+ equivalent copying facilities, provided you maintain clear directions
+ next to the object code saying where to find the Corresponding Source.
+ Regardless of what server hosts the Corresponding Source, you remain
+ obligated to ensure that it is available for as long as needed to
+ satisfy these requirements.
+
+ e) Convey the object code using peer-to-peer transmission, provided you
+ inform other peers where the object code and Corresponding Source of the
+ work are being offered to the general public at no charge under
+ subsection 6d.
+
+A separable portion of the object code, whose source code is excluded from the
+Corresponding Source as a System Library, need not be included in conveying the
+object code work.
+
+A "User Product" is either (1) a "consumer product", which means any tangible
+personal property which is normally used for personal, family, or household
+purposes, or (2) anything designed or sold for incorporation into a dwelling.
+In determining whether a product is a consumer product, doubtful cases shall be
+resolved in favor of coverage. For a particular product received by a
+particular user, "normally used" refers to a typical or common use of that
+class of product, regardless of the status of the particular user or of the way
+in which the particular user actually uses, or expects or is expected to use,
+the product. A product is a consumer product regardless of whether the product
+has substantial commercial, industrial or non-consumer uses, unless such uses
+represent the only significant mode of use of the product.
+
+"Installation Information" for a User Product means any methods, procedures,
+authorization keys, or other information required to install and execute
+modified versions of a covered work in that User Product from a modified
+version of its Corresponding Source. The information must suffice to ensure
+that the continued functioning of the modified object code is in no case
+prevented or interfered with solely because modification has been made.
+
+If you convey an object code work under this section in, or with, or
+specifically for use in, a User Product, and the conveying occurs as part of a
+transaction in which the right of possession and use of the User Product is
+transferred to the recipient in perpetuity or for a fixed term (regardless of
+how the transaction is characterized), the Corresponding Source conveyed under
+this section must be accompanied by the Installation Information. But this
+requirement does not apply if neither you nor any third party retains the
+ability to install modified object code on the User Product (for example, the
+work has been installed in ROM).
+
+The requirement to provide Installation Information does not include a
+requirement to continue to provide support service, warranty, or updates for a
+work that has been modified or installed by the recipient, or for the User
+Product in which it has been modified or installed. Access to a network may be
+denied when the modification itself materially and adversely affects the
+operation of the network or violates the rules and protocols for communication
+across the network.
+
+Corresponding Source conveyed, and Installation Information provided, in accord
+with this section must be in a format that is publicly documented (and with an
+implementation available to the public in source code form), and must require
+no special password or key for unpacking, reading or copying.
+
+7. Additional Terms.
+
+"Additional permissions" are terms that supplement the terms of this License by
+making exceptions from one or more of its conditions. Additional permissions
+that are applicable to the entire Program shall be treated as though they were
+included in this License, to the extent that they are valid under applicable
+law. If additional permissions apply only to part of the Program, that part
+may be used separately under those permissions, but the entire Program remains
+governed by this License without regard to the additional permissions.
+
+When you convey a copy of a covered work, you may at your option remove any
+additional permissions from that copy, or from any part of it. (Additional
+permissions may be written to require their own removal in certain cases when
+you modify the work.) You may place additional permissions on material, added
+by you to a covered work, for which you have or can give appropriate copyright
+permission.
+
+Notwithstanding any other provision of this License, for material you add to a
+covered work, you may (if authorized by the copyright holders of that material)
+supplement the terms of this License with terms:
+
+ a) Disclaiming warranty or limiting liability differently from the terms of
+ sections 15 and 16 of this License; or
+
+ b) Requiring preservation of specified reasonable legal notices or author
+ attributions in that material or in the Appropriate Legal Notices
+ displayed by works containing it; or
+
+ c) Prohibiting misrepresentation of the origin of that material, or
+ requiring that modified versions of such material be marked in
+ reasonable ways as different from the original version; or
+
+ d) Limiting the use for publicity purposes of names of licensors or authors
+ of the material; or
+
+ e) Declining to grant rights under trademark law for use of some trade
+ names, trademarks, or service marks; or
+
+ f) Requiring indemnification of licensors and authors of that material by
+ anyone who conveys the material (or modified versions of it) with
+ contractual assumptions of liability to the recipient, for any liability
+ that these contractual assumptions directly impose on those licensors
+ and authors.
+
+All other non-permissive additional terms are considered "further restrictions"
+within the meaning of section 10. If the Program as you received it, or any
+part of it, contains a notice stating that it is governed by this License along
+with a term that is a further restriction, you may remove that term. If a
+license document contains a further restriction but permits relicensing or
+conveying under this License, you may add to a covered work material governed
+by the terms of that license document, provided that the further restriction
+does not survive such relicensing or conveying.
+
+If you add terms to a covered work in accord with this section, you must place,
+in the relevant source files, a statement of the additional terms that apply to
+those files, or a notice indicating where to find the applicable terms.
+
+Additional terms, permissive or non-permissive, may be stated in the form of a
+separately written license, or stated as exceptions; the above requirements
+apply either way.
+
+8. Termination.
+
+You may not propagate or modify a covered work except as expressly provided
+under this License. Any attempt otherwise to propagate or modify it is void,
+and will automatically terminate your rights under this License (including any
+patent licenses granted under the third paragraph of section 11).
+
+However, if you cease all violation of this License, then your license from a
+particular copyright holder is reinstated (a) provisionally, unless and until
+the copyright holder explicitly and finally terminates your license, and (b)
+permanently, if the copyright holder fails to notify you of the violation by
+some reasonable means prior to 60 days after the cessation.
+
+Moreover, your license from a particular copyright holder is reinstated
+permanently if the copyright holder notifies you of the violation by some
+reasonable means, this is the first time you have received notice of violation
+of this License (for any work) from that copyright holder, and you cure the
+violation prior to 30 days after your receipt of the notice.
+
+Termination of your rights under this section does not terminate the licenses
+of parties who have received copies or rights from you under this License. If
+your rights have been terminated and not permanently reinstated, you do not
+qualify to receive new licenses for the same material under section 10.
+
+9. Acceptance Not Required for Having Copies.
+
+You are not required to accept this License in order to receive or run a copy
+of the Program. Ancillary propagation of a covered work occurring solely as a
+consequence of using peer-to-peer transmission to receive a copy likewise does
+not require acceptance. However, nothing other than this License grants you
+permission to propagate or modify any covered work. These actions infringe
+copyright if you do not accept this License. Therefore, by modifying or
+propagating a covered work, you indicate your acceptance of this License to do
+so.
+
+10. Automatic Licensing of Downstream Recipients.
+
+Each time you convey a covered work, the recipient automatically receives a
+license from the original licensors, to run, modify and propagate that work,
+subject to this License. You are not responsible for enforcing compliance by
+third parties with this License.
+
+An "entity transaction" is a transaction transferring control of an
+organization, or substantially all assets of one, or subdividing an
+organization, or merging organizations. If propagation of a covered work
+results from an entity transaction, each party to that transaction who receives
+a copy of the work also receives whatever licenses to the work the party's
+predecessor in interest had or could give under the previous paragraph, plus a
+right to possession of the Corresponding Source of the work from the
+predecessor in interest, if the predecessor has it or can get it with
+reasonable efforts.
+
+You may not impose any further restrictions on the exercise of the rights
+granted or affirmed under this License. For example, you may not impose a
+license fee, royalty, or other charge for exercise of rights granted under this
+License, and you may not initiate litigation (including a cross-claim or
+counterclaim in a lawsuit) alleging that any patent claim is infringed by
+making, using, selling, offering for sale, or importing the Program or any
+portion of it.
+
+11. Patents.
+
+A "contributor" is a copyright holder who authorizes use under this License of
+the Program or a work on which the Program is based. The work thus licensed is
+called the contributor's "contributor version".
+
+A contributor's "essential patent claims" are all patent claims owned or
+controlled by the contributor, whether already acquired or hereafter acquired,
+that would be infringed by some manner, permitted by this License, of making,
+using, or selling its contributor version, but do not include claims that would
+be infringed only as a consequence of further modification of the contributor
+version. For purposes of this definition, "control" includes the right to
+grant patent sublicenses in a manner consistent with the requirements of this
+License.
+
+Each contributor grants you a non-exclusive, worldwide, royalty-free patent
+license under the contributor's essential patent claims, to make, use, sell,
+offer for sale, import and otherwise run, modify and propagate the contents of
+its contributor version.
+
+In the following three paragraphs, a "patent license" is any express agreement
+or commitment, however denominated, not to enforce a patent (such as an express
+permission to practice a patent or covenant not to sue for patent
+infringement). To "grant" such a patent license to a party means to make such
+an agreement or commitment not to enforce a patent against the party.
+
+If you convey a covered work, knowingly relying on a patent license, and the
+Corresponding Source of the work is not available for anyone to copy, free of
+charge and under the terms of this License, through a publicly available
+network server or other readily accessible means, then you must either (1)
+cause the Corresponding Source to be so available, or (2) arrange to deprive
+yourself of the benefit of the patent license for this particular work, or (3)
+arrange, in a manner consistent with the requirements of this License, to
+extend the patent license to downstream recipients. "Knowingly relying" means
+you have actual knowledge that, but for the patent license, your conveying the
+covered work in a country, or your recipient's use of the covered work in a
+country, would infringe one or more identifiable patents in that country that
+you have reason to believe are valid.
+
+If, pursuant to or in connection with a single transaction or arrangement, you
+convey, or propagate by procuring conveyance of, a covered work, and grant a
+patent license to some of the parties receiving the covered work authorizing
+them to use, propagate, modify or convey a specific copy of the covered work,
+then the patent license you grant is automatically extended to all recipients
+of the covered work and works based on it.
+
+A patent license is "discriminatory" if it does not include within the scope of
+its coverage, prohibits the exercise of, or is conditioned on the non-exercise
+of one or more of the rights that are specifically granted under this License.
+You may not convey a covered work if you are a party to an arrangement with a
+third party that is in the business of distributing software, under which you
+make payment to the third party based on the extent of your activity of
+conveying the work, and under which the third party grants, to any of the
+parties who would receive the covered work from you, a discriminatory patent
+license (a) in connection with copies of the covered work conveyed by you (or
+copies made from those copies), or (b) primarily for and in connection with
+specific products or compilations that contain the covered work, unless you
+entered into that arrangement, or that patent license was granted, prior to 28
+March 2007.
+
+Nothing in this License shall be construed as excluding or limiting any implied
+license or other defenses to infringement that may otherwise be available to
+you under applicable patent law.
+
+12. No Surrender of Others' Freedom.
+
+If conditions are imposed on you (whether by court order, agreement or
+otherwise) that contradict the conditions of this License, they do not excuse
+you from the conditions of this License. If you cannot convey a covered work
+so as to satisfy simultaneously your obligations under this License and any
+other pertinent obligations, then as a consequence you may not convey it at
+all. For example, if you agree to terms that obligate you to collect a royalty
+for further conveying from those to whom you convey the Program, the only way
+you could satisfy both those terms and this License would be to refrain
+entirely from conveying the Program.
+
+13. Remote Network Interaction; Use with the GNU General Public License.
+
+Notwithstanding any other provision of this License, if you modify the Program,
+your modified version must prominently offer all users interacting with it
+remotely through a computer network (if your version supports such interaction)
+an opportunity to receive the Corresponding Source of your version by providing
+access to the Corresponding Source from a network server at no charge, through
+some standard or customary means of facilitating copying of software. This
+Corresponding Source shall include the Corresponding Source for any work
+covered by version 3 of the GNU General Public License that is incorporated
+pursuant to the following paragraph.
+
+Notwithstanding any other provision of this License, you have permission to
+link or combine any covered work with a work licensed under version 3 of the
+GNU General Public License into a single combined work, and to convey the
+resulting work. The terms of this License will continue to apply to the part
+which is the covered work, but the work with which it is combined will remain
+governed by version 3 of the GNU General Public License.
+
+14. Revised Versions of this License.
+
+The Free Software Foundation may publish revised and/or new versions of the GNU
+Affero General Public License from time to time. Such new versions will be
+similar in spirit to the present version, but may differ in detail to address
+new problems or concerns.
+
+Each version is given a distinguishing version number. If the Program
+specifies that a certain numbered version of the GNU Affero General Public
+License "or any later version" applies to it, you have the option of following
+the terms and conditions either of that numbered version or of any later
+version published by the Free Software Foundation. If the Program does not
+specify a version number of the GNU Affero General Public License, you may
+choose any version ever published by the Free Software Foundation.
+
+If the Program specifies that a proxy can decide which future versions of the
+GNU Affero General Public License can be used, that proxy's public statement of
+acceptance of a version permanently authorizes you to choose that version for
+the Program.
+
+Later license versions may give you additional or different permissions.
+However, no additional obligations are imposed on any author or copyright
+holder as a result of your choosing to follow a later version.
+
+15. Disclaimer of Warranty.
+
+THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE
+LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR
+OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER
+EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO
+THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM
+PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR
+CORRECTION.
+
+16. Limitation of Liability.
+
+IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY
+COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS THE PROGRAM AS
+PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL,
+INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE
+THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED
+INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE
+PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY
+HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
+
+17. Interpretation of Sections 15 and 16.
+
+If the disclaimer of warranty and limitation of liability provided above cannot
+be given local legal effect according to their terms, reviewing courts shall
+apply local law that most closely approximates an absolute waiver of all civil
+liability in connection with the Program, unless a warranty or assumption of
+liability accompanies a copy of the Program in return for a fee.
diff --git a/META6.json b/META6.json
new file mode 100644
index 0000000..ea0107d
--- /dev/null
+++ b/META6.json
@@ -0,0 +1,37 @@
+{
+ "api": "0",
+ "auth": "",
+ "authors": [
+ "Patrick Spek <p.spek@tyil.nl>"
+ ],
+ "depends": [
+ "Config",
+ "Config::Parser::toml",
+ "Data::Dump",
+ "DB::Pg"
+ ],
+ "description": "A Raku application to handle database migrations",
+ "license": "AGPL-3.0",
+ "name": "App::DbMigrator",
+ "perl": "6.d",
+ "provides": {
+ "App::DbMigrator": "lib/App/DbMigrator.rakumod",
+ "App::DbMigrator::Bin::Config": "lib/App/DbMigrator/Bin/Config.rakumod",
+ "App::DbMigrator::Bin::Down": "lib/App/DbMigrator/Bin/Down.rakumod",
+ "App::DbMigrator::Bin::Init": "lib/App/DbMigrator/Bin/Init.rakumod",
+ "App::DbMigrator::Bin::List": "lib/App/DbMigrator/Bin/List.rakumod",
+ "App::DbMigrator::Bin::Up": "lib/App/DbMigrator/Bin/Up.rakumod",
+ "App::DbMigrator::Config": "lib/App/DbMigrator/Config.rakumod",
+ "App::DbMigrator::DB": "lib/App/DbMigrator/DB.rakumod",
+ "App::DbMigrator::Util": "lib/App/DbMigrator/Util.rakumod"
+ },
+ "resources": [
+ "sql/delete-migration.sql",
+ "sql/insert-migration.sql",
+ "sql/select-migration.sql",
+ "sql/check-migration-table-exists.sql",
+ "sql/create-migration-table.sql"
+ ],
+ "source-url": "",
+ "version": "0.0.0"
+}
diff --git a/README.rakudoc b/README.rakudoc
new file mode 100644
index 0000000..cbfc14d
--- /dev/null
+++ b/README.rakudoc
@@ -0,0 +1,40 @@
+=begin pod
+
+=NAME App::DbMigrator
+=VERSION 0.0.0
+=AUTHOR Patrick Spek <p.spek@tyil.nl>
+
+=head1 Description
+
+A Raku application to handle database migrations
+
+=head1 Installation
+
+Install this module through L<zef|https://github.com/ugexe/zef>:
+
+=begin code :lang<sh>
+zef install App::DbMigrator
+=end code
+
+=head1 Documentation
+
+Documentation is written as L<Pod6|https://docs.raku.org/language/pod>
+documents, and can be read with the
+L<C<p6doc>|https://modules.raku.org/dist/p6doc:github:perl6> module.
+
+=begin input
+p6doc App::DbMigrator
+=end input
+
+At your option, you can also use prettier readers, such as
+L<C<App::Rakuman>|https://modules.raku.org/dist/App::Rakuman:cpan:TYIL>.
+
+=begin input
+rakuman App::DbMigrator
+=end input
+
+=head1 License
+
+This module is distributed under the terms of the AGPL-3.0.
+
+=end pod
diff --git a/bin/db-migrate b/bin/db-migrate
new file mode 100644
index 0000000..42a0432
--- /dev/null
+++ b/bin/db-migrate
@@ -0,0 +1,17 @@
+#!/usr/bin/env raku
+
+use v6.d;
+
+use App::DbMigrator::Bin::Config;
+use App::DbMigrator::Bin::Down;
+use App::DbMigrator::Bin::Init;
+use App::DbMigrator::Bin::List;
+use App::DbMigrator::Bin::Up;
+use App::DbMigrator::Config;
+
+
+my %*SUB-MAIN-OPTS =
+ :named-anywhere,
+;
+
+config-load;
diff --git a/lib/App/DbMigrator.rakumod b/lib/App/DbMigrator.rakumod
new file mode 100644
index 0000000..011ef3f
--- /dev/null
+++ b/lib/App/DbMigrator.rakumod
@@ -0,0 +1,83 @@
+#! /usr/bin/env false
+
+use v6.d;
+
+unit module App::DbMigrator;
+
+=begin pod
+
+=NAME App::DbMigrator
+=VERSION 0.0.0
+=AUTHOR Patrick Spek <p.spek@tyil.nl>
+
+ db-migrate init
+ -> create _migrations table
+
+ db-migrate list
+ -> list available migrations
+
+ db-migrate up
+ -> run update script
+ -> run tests (if available)
+
+ db-migrate down
+ -> run rollback script
+
+ db-migrate watch --git --interval=60
+ -> poll git repo
+ -> run updates if available
+
+ db-migrate new
+ -> create skeleton for db-migrate repo
+
+ db-migrate add <release> [name]
+ -> create skeleton for a release migration
+
+ db-migrate qa
+ -> check migrations for obvious mistakes
+
+ configuration: {
+ db => {
+ host => …,
+ port => …,
+ username => …,
+ password => …,
+ database => …,
+ },
+ repo => {
+ migrations => "migrations",
+ },
+ }
+
+ fs layout: {
+ db-migrate.toml
+ migrations/
+ v0.0.1/
+ up/
+ update.sql
+ test/
+ update.sql
+ down/
+ update.sql
+ }
+
+=begin LICENSE
+Copyright © 2020
+
+This program is free software: you can redistribute it and/or modify it under
+the terms of the GNU Affero General Public License as published by the Free
+Software Foundation, either version 3 of the License, or (at your option) any
+later version.
+
+This program is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+PARTICULAR PURPOSE. See the GNU Affero General Public License for more
+details.
+
+You should have received a copy of the GNU Affero General Public License along
+with this program. If not, see http://www.gnu.org/licenses/.
+=end LICENSE
+
+=end pod
+
+# vim: ft=raku noet sw=8 ts=8
diff --git a/lib/App/DbMigrator/Bin/Config.rakumod b/lib/App/DbMigrator/Bin/Config.rakumod
new file mode 100644
index 0000000..0fe4b35
--- /dev/null
+++ b/lib/App/DbMigrator/Bin/Config.rakumod
@@ -0,0 +1,44 @@
+#! /usr/bin/env false
+
+use v6.d;
+
+use Data::Dump;
+
+use App::DbMigrator::Config;
+
+unit module App::DbMigrator::Bin::Config;
+
+#| Show current configuration used by db-migrate.
+multi sub MAIN (
+ 'config',
+) is export {
+ config-load;
+ say(Dump(config, :skip-methods));
+}
+
+=begin pod
+
+=NAME App::DbMigrator::Bin::Config
+=VERSION 0.0.0
+=AUTHOR Patrick Spek <p.spek@tyil.nl>
+
+=begin LICENSE
+Copyright © 2020
+
+This program is free software: you can redistribute it and/or modify it under
+the terms of the GNU Affero General Public License as published by the Free
+Software Foundation, either version 3 of the License, or (at your option) any
+later version.
+
+This program is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+PARTICULAR PURPOSE. See the GNU Affero General Public License for more
+details.
+
+You should have received a copy of the GNU Affero General Public License along
+with this program. If not, see http://www.gnu.org/licenses/.
+=end LICENSE
+
+=end pod
+
+# vim: ft=raku noet sw=8 ts=8
diff --git a/lib/App/DbMigrator/Bin/Down.rakumod b/lib/App/DbMigrator/Bin/Down.rakumod
new file mode 100644
index 0000000..8f131fc
--- /dev/null
+++ b/lib/App/DbMigrator/Bin/Down.rakumod
@@ -0,0 +1,94 @@
+#! /usr/bin/env false
+
+use v6.d;
+
+use DB::Pg;
+
+use App::DbMigrator::Config;
+use App::DbMigrator::DB;
+use App::DbMigrator::Util;
+
+unit module App::DbMigrator::Bin::Down;
+
+#| Roll a migration back.
+multi sub MAIN (
+ 'down',
+
+ #| A list of explicit targets to run migrations for.
+ *@targets,
+
+ #| Run the migrations for every release in its own transaction. This
+ #| defaults to True.
+ Bool:D :$transaction = True,
+) is export {
+ CATCH {
+ when DB::Pg::Error::FatalError {
+ note 'An error occurred while rolling back this migration:';
+ note $_.message.indent(3);
+ exit 3;
+ }
+ default { $_.throw }
+ }
+
+ for (@targets || config('target').keys).sort -> $target {
+ say "Running rollbacks for $target";
+
+ my $db = App::DbMigrator::DB.new(|config("target.$target"));
+ my %releases = get-migrations($target);
+ my $last;
+
+ for %releases.keys.sort.reverse {
+ if (%releases{$_}.values.grep(* == True)) {
+ $last = $_;
+ last;
+ }
+ }
+
+ if (!$last) {
+ say ' No migrations left to roll back';
+ exit 4;
+ }
+
+ say " Last migration is $last";
+
+ for %releases{$last}.keys.sort.reverse {
+ my $migration = config('repo.migrations').add($last).add('down').add($_);
+
+ if (!$migration.f) {
+ note " No rollback script at {$migration.absolute}!";
+ exit 5;
+ }
+
+ say " Running {$migration.absolute}";
+
+ $db.migrate-down($last, $_, $migration, :$transaction);
+ }
+ }
+}
+
+=begin pod
+
+=NAME App::DbMigrator::Bin::Down
+=VERSION 0.0.0
+=AUTHOR Patrick Spek <p.spek@tyil.nl>
+
+=begin LICENSE
+Copyright © 2020
+
+This program is free software: you can redistribute it and/or modify it under
+the terms of the GNU Affero General Public License as published by the Free
+Software Foundation, either version 3 of the License, or (at your option) any
+later version.
+
+This program is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+PARTICULAR PURPOSE. See the GNU Affero General Public License for more
+details.
+
+You should have received a copy of the GNU Affero General Public License along
+with this program. If not, see http://www.gnu.org/licenses/.
+=end LICENSE
+
+=end pod
+
+# vim: ft=raku noet sw=8 ts=8
diff --git a/lib/App/DbMigrator/Bin/Init.rakumod b/lib/App/DbMigrator/Bin/Init.rakumod
new file mode 100644
index 0000000..04a1a16
--- /dev/null
+++ b/lib/App/DbMigrator/Bin/Init.rakumod
@@ -0,0 +1,78 @@
+#! /usr/bin/env false
+
+use v6.d;
+
+use App::DbMigrator::Config;
+use App::DbMigrator::DB;
+use App::DbMigrator::Util;
+
+unit module App::DbMigrator::Bin::Init;
+
+#| Initialize the migrations table.
+multi sub MAIN (
+ 'init',
+
+ #| A list of explicit targets to run migrations for.
+ *@targets,
+
+ #| Mark all existing migrations in the repository as applied.
+ Bool:D :$all-applied = False,
+) is export {
+ for (@targets || config('target').keys).sort -> $target {
+ say "Initializing $target";
+
+ my $db = App::DbMigrator::DB.new(|config("target.$target"));
+
+ if ($db.check-migration-table-exists) {
+ note ' Migrations table already exists!';
+ next;
+ }
+
+ say ' Creating _migrations table';
+
+ $db.create-migration-table;
+
+ if ($all-applied) {
+ say 'Setting migrations as applied';
+
+ my %releases = get-migrations($target);
+
+ for %releases.keys.sort -> $release {
+ say $release.indent(2);
+
+ for %releases{$release}.keys.sort -> $migration {
+ say $migration.indent(4);
+
+ $db.insert-migration($release, $migration);
+ }
+ }
+ }
+ }
+}
+
+=begin pod
+
+=NAME App::DbMigrator::Bin::Init
+=VERSION 0.0.0
+=AUTHOR Patrick Spek <p.spek@tyil.nl>
+
+=begin LICENSE
+Copyright © 2020
+
+This program is free software: you can redistribute it and/or modify it under
+the terms of the GNU Affero General Public License as published by the Free
+Software Foundation, either version 3 of the License, or (at your option) any
+later version.
+
+This program is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+PARTICULAR PURPOSE. See the GNU Affero General Public License for more
+details.
+
+You should have received a copy of the GNU Affero General Public License along
+with this program. If not, see http://www.gnu.org/licenses/.
+=end LICENSE
+
+=end pod
+
+# vim: ft=raku noet sw=8 ts=8
diff --git a/lib/App/DbMigrator/Bin/List.rakumod b/lib/App/DbMigrator/Bin/List.rakumod
new file mode 100644
index 0000000..d58cef7
--- /dev/null
+++ b/lib/App/DbMigrator/Bin/List.rakumod
@@ -0,0 +1,74 @@
+#! /usr/bin/env false
+
+use v6.d;
+
+use App::DbMigrator::Config;
+use App::DbMigrator::Util;
+
+unit module App::DbMigrator::Bin::List;
+
+#| Show a list of migrations in this repo.
+multi sub MAIN (
+ 'list',
+
+ #| An explicit target to list migrations for. Only required if you have
+ #| multiple targets defined.
+ Str:D $target is copy = '',
+
+ #| Show a list of all scripts in a release.
+ Bool:D :$verbose = False,
+) is export {
+ if (!$target) {
+ my @targets = config('target').keys;
+
+ if (1 < @targets.elems) {
+ die "You must select a target to list migrations for";
+ }
+
+ $target = @targets.first;
+ }
+
+ my %releases = get-migrations($target);
+
+ for %releases.keys.sort -> $version {
+ print %releases{$version}.grep(*.value == False).elems
+ ?? '☐ '
+ !! '☑ '
+ ;
+
+ say $version;
+
+ if ($verbose) {
+ for %releases{$version}.keys.sort {
+ say "\t$_";
+ }
+ }
+ }
+}
+
+=begin pod
+
+=NAME App::DbMigrator::Bin::List
+=VERSION 0.0.0
+=AUTHOR Patrick Spek <p.spek@tyil.nl>
+
+=begin LICENSE
+Copyright © 2020
+
+This program is free software: you can redistribute it and/or modify it under
+the terms of the GNU Affero General Public License as published by the Free
+Software Foundation, either version 3 of the License, or (at your option) any
+later version.
+
+This program is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+PARTICULAR PURPOSE. See the GNU Affero General Public License for more
+details.
+
+You should have received a copy of the GNU Affero General Public License along
+with this program. If not, see http://www.gnu.org/licenses/.
+=end LICENSE
+
+=end pod
+
+# vim: ft=raku noet sw=8 ts=8
diff --git a/lib/App/DbMigrator/Bin/Up.rakumod b/lib/App/DbMigrator/Bin/Up.rakumod
new file mode 100644
index 0000000..934fbef
--- /dev/null
+++ b/lib/App/DbMigrator/Bin/Up.rakumod
@@ -0,0 +1,100 @@
+#! /usr/bin/env false
+
+use v6.d;
+
+use DB::Pg;
+
+use App::DbMigrator::Config;
+use App::DbMigrator::DB;
+use App::DbMigrator::Util;
+
+unit module App::DbMigrator::Bin::Up;
+
+#| Run a migration.
+multi sub MAIN (
+ 'up',
+
+ #| A list of explicit targets to run migrations for.
+ *@targets,
+
+ #| Run all available migrations.
+ Bool:D :$all = True,
+
+ #| Run the migrations for every release in its own transaction. This
+ #| defaults to True.
+ Bool:D :$transaction = True,
+) is export {
+ CATCH {
+ when DB::Pg::Error::FatalError {
+ note 'An error occurred while applying this migration:';
+ note $_.message.indent(3);
+ exit 3;
+ }
+ default { $_.throw }
+ }
+
+ for (@targets || config('target').keys).sort -> $target {
+ say "Running migrations for $target";
+
+ my $db = App::DbMigrator::DB.new(|config("target.$target"));
+ my %releases = get-migrations($target);
+ my @next;
+
+ for %releases.keys.sort {
+ if (%releases{$_}.values.grep(* == False)) {
+ @next.append($_);
+ last unless $all;
+ }
+ }
+
+ if (!@next) {
+ say ' No pending migrations';
+ next;
+ }
+
+ for @next -> $next {
+ say " Next migration is $next";
+
+ for %releases{$next}.keys.sort {
+ my $migration = config('repo.migrations').add($next).add('up').add($_);
+ my $test = config('repo.migrations').add($next).add('test').add($_);
+
+ say " Running {$migration.absolute}";
+
+ if (!$test.f) {
+ note " No test found for $next/$_!";
+ $test = IO::Path;
+ }
+
+ $db.migrate-up($next, $_, $migration, :$test, :$transaction);
+ }
+ }
+ }
+}
+
+=begin pod
+
+=NAME App::DbMigrator::Bin::Up
+=VERSION 0.0.0
+=AUTHOR Patrick Spek <p.spek@tyil.nl>
+
+=begin LICENSE
+Copyright © 2020
+
+This program is free software: you can redistribute it and/or modify it under
+the terms of the GNU Affero General Public License as published by the Free
+Software Foundation, either version 3 of the License, or (at your option) any
+later version.
+
+This program is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+PARTICULAR PURPOSE. See the GNU Affero General Public License for more
+details.
+
+You should have received a copy of the GNU Affero General Public License along
+with this program. If not, see http://www.gnu.org/licenses/.
+=end LICENSE
+
+=end pod
+
+# vim: ft=raku noet sw=8 ts=8
diff --git a/lib/App/DbMigrator/Config.rakumod b/lib/App/DbMigrator/Config.rakumod
new file mode 100644
index 0000000..5123105
--- /dev/null
+++ b/lib/App/DbMigrator/Config.rakumod
@@ -0,0 +1,100 @@
+#! /usr/bin/env false
+
+use v6.d;
+
+use Config;
+
+unit module App::DbMigrator::Config;
+
+my Config $config .= new.read: {
+ repo => {
+ root => $*CWD,
+ migrations => 'migrations',
+ },
+ database => {
+ },
+};
+
+#| Retrieve the entire Config object.
+multi sub config (
+ --> Config
+) is export {
+ $config
+}
+
+#| Retrieve the value of a single configuration item.
+multi sub config (
+ Str:D $key,
+ --> Any
+) is export {
+ $config.get($key);
+}
+
+#| Look for a configuration file in the current working directory, and load it
+#| if found.
+multi sub config-load (
+ Bool:D :$search-up = True,
+) is export {
+ config-load($*CWD)
+}
+
+#| Look for a configuration file, and load it if found.
+multi sub config-load (
+ #| The directory to search in.
+ IO::Path:D $dir is copy where $dir.d,
+
+ #| If set to true, search higher level directories as well.
+ Bool:D :$search-up = True,
+
+ #| If set to true, die() if no configuration file could be found.
+ Bool:D :$die = True,
+) is export {
+ while ($dir.absolute ne '/') {
+ with ($dir.add('db-migrate.toml')) -> $file {
+ return config-load($file) if $file.f;
+ }
+
+ $dir .= parent;
+ }
+
+ die "Could not find configuration file in {$dir.absolute}" if $die;
+}
+
+#| Load a configuration file.
+multi sub config-load (
+ IO::Path:D $file where $file.f,
+) is export {
+ $config .= read($file.absolute);
+
+ $config<repo><root> = $file.parent;
+ $config<repo><migrations> = $config<repo><root>.add($config<repo><migrations>);
+
+ return;
+}
+
+=begin pod
+
+=NAME App::DbMigrator::Config
+=VERSION 0.0.0
+=AUTHOR Patrick Spek <p.spek@tyil.nl>
+
+=begin LICENSE
+Copyright © 2020
+
+This program is free software: you can redistribute it and/or modify it under
+the terms of the GNU Affero General Public License as published by the Free
+Software Foundation, either version 3 of the License, or (at your option) any
+later version.
+
+This program is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+PARTICULAR PURPOSE. See the GNU Affero General Public License for more
+details.
+
+You should have received a copy of the GNU Affero General Public License along
+with this program. If not, see http://www.gnu.org/licenses/.
+=end LICENSE
+
+=end pod
+
+# vim: ft=raku noet sw=8 ts=8
diff --git a/lib/App/DbMigrator/DB.rakumod b/lib/App/DbMigrator/DB.rakumod
new file mode 100644
index 0000000..3cdafe3
--- /dev/null
+++ b/lib/App/DbMigrator/DB.rakumod
@@ -0,0 +1,189 @@
+#! /usr/bin/env false
+
+use v6.d;
+
+use DB::Pg;
+
+use App::DbMigrator::Config;
+
+unit class App::DbMigrator::DB;
+
+has DB::Pg $.connection;
+has Str $.database;
+has Str $.host = 'localhost';
+has Int $.port = 5432;
+has Str $.username = 'postgres';
+has Str $.password;
+
+#| Check whether the migration table exists.
+method check-migration-table-exists (
+ --> Bool
+) {
+ my $db = $!connection.db;
+ my $statement = $db.prepare(self!sql-file('check-migration-table-exists').slurp);
+ my $result = $statement.execute;
+
+ $db.finish;
+
+ $result.value;
+}
+
+#| Create the migration table.
+method create-migration-table (
+) {
+ my $db = $!connection.db;
+ my $statement = $db.prepare(self!sql-file('create-migration-table').slurp);
+ my $result = $statement.execute;
+
+ $db.finish;
+}
+
+#| Roll back a migration.
+method migrate-down (
+ Str:D $release,
+ Str:D $name,
+ IO::Path:D $migration,
+ Bool:D :$transaction = True,
+) {
+ my $db = $!connection.db;
+
+ $db.begin if $transaction;
+ $db.execute($migration.slurp);
+
+ my $statement = $db.prepare(self!sql-file('delete-migration').slurp);
+ $statement.execute($release, $name);
+
+ $db.commit if $transaction;
+ $db.finish;
+}
+
+#| Apply a migration.
+method migrate-up (
+ Str:D $release,
+ Str:D $name,
+ IO::Path:D $migration,
+ IO::Path :$test?,
+ Bool:D :$transaction = True,
+) {
+ my $db = $!connection.db;
+
+ $db.begin if $transaction;
+ $db.execute($migration.slurp);
+
+ my $statement = $db.prepare(self!sql-file('insert-migration').slurp);
+ $statement.execute($release, $name, DateTime.now);
+
+ if ($test) {
+ $db.execute($test.slurp);
+ }
+
+ $db.commit if $transaction;
+ $db.finish;
+}
+
+#| Insert a record into the migration table.
+method insert-migration (
+ #| The release version.
+ Str:D $release,
+
+ #| The name of the migration.
+ Str:D $name,
+
+ #| Run this query in a transaction.
+ Bool:D :$transaction = True,
+) {
+ my $db = $!connection.db;
+
+ $db.begin if $transaction;
+
+ my $statement = $db.prepare(self!sql-file('insert-migration').slurp);
+ $statement.execute($release, $name, DateTime.now);
+
+ $db.commit if $transaction;
+ $db.finish;
+}
+
+#| Select all entries from the migrations table.
+method select-migration (
+ Str:D $release,
+ Str:D $name,
+ --> Iterable
+) {
+ CATCH {
+ when DB::Pg::Error::FatalError {
+ my $exception = $_;
+
+ given ($_.state.fc) {
+ when '42p01' { note "Table missing, error TODO"; return (); }
+ default { $exception.throw }
+ }
+ }
+ default { $_.throw }
+ }
+
+ my $db = $!connection.db;
+ my $statement = $db.prepare(self!sql-file('select-migration').slurp);
+ my $result = $statement.execute($release, $name);
+
+ $db.finish;
+ $result.array;
+}
+
+#| Generate the connection string for the database.
+method !connection-string (
+ --> Str
+) {
+ my %credentials =
+ dbname => $!database,
+ host => $!host,
+ port => $!port,
+ user => $!username,
+ ;
+
+ %credentials<password> = $!password if $!password;
+
+ %credentials
+ .pairs
+ .map({ "{$_.key}={$_.value}" })
+ .join(' ')
+}
+
+#| Retrieve one of the prepared SQL files.
+method !sql-file (
+ Str:D $name,
+ --> IO::Path
+) {
+ %?RESOURCES{"sql/$name.sql"}.IO;
+}
+
+submethod TWEAK
+{
+ $!connection .= new(conninfo => self!connection-string);
+}
+
+=begin pod
+
+=NAME App::DbMigrator::DB
+=VERSION 0.0.0
+=AUTHOR Patrick Spek <p.spek@tyil.nl>
+
+=begin LICENSE
+Copyright © 2020
+
+This program is free software: you can redistribute it and/or modify it under
+the terms of the GNU Affero General Public License as published by the Free
+Software Foundation, either version 3 of the License, or (at your option) any
+later version.
+
+This program is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+PARTICULAR PURPOSE. See the GNU Affero General Public License for more
+details.
+
+You should have received a copy of the GNU Affero General Public License along
+with this program. If not, see http://www.gnu.org/licenses/.
+=end LICENSE
+
+=end pod
+
+# vim: ft=raku noet sw=8 ts=8
diff --git a/lib/App/DbMigrator/Util.rakumod b/lib/App/DbMigrator/Util.rakumod
new file mode 100644
index 0000000..82bf49f
--- /dev/null
+++ b/lib/App/DbMigrator/Util.rakumod
@@ -0,0 +1,85 @@
+#! /usr/bin/env false
+
+use v6.d;
+
+use App::DbMigrator::Config;
+use App::DbMigrator::DB;
+
+unit module App::DbMigrator::Util;
+
+#| Get a bare list of migrations.
+multi sub get-migrations (
+ --> Associative
+) is export {
+ my %releases = config('repo.migrations')
+ .dir
+ .map(*.basename => Any)
+ ;
+
+ for %releases.keys -> $release {
+ my %migrations = config('repo.migrations')
+ .add($release)
+ .add('up')
+ .dir
+ .grep(*.IO.extension eq 'sql')
+ .map({ $_.basename => False })
+ ;
+
+ %releases{$release} = %migrations;
+ }
+
+ %releases;
+}
+
+#| Get a list of all migrations in the repository, marked with a Bool wether
+#| they've been applied.
+multi sub get-migrations (
+ #| The target database to check.
+ Str:D $target,
+
+ --> Associative
+) is export {
+ my $db = App::DbMigrator::DB.new(|config("target.$target"));
+
+ if (!$db.check-migration-table-exists) {
+ note "_migrations table does not exist, please run 'db-migrate init' first!";
+ return %();
+ }
+
+ my %releases = get-migrations;
+
+ for %releases.keys -> $release {
+ for %releases{$release}.keys -> $migration {
+ %releases{$release}{$migration} = $db.select-migration($release, $migration).Bool;
+ }
+ }
+
+ %releases;
+}
+
+=begin pod
+
+=NAME App::DbMigrator::Util
+=VERSION 0.0.0
+=AUTHOR Patrick Spek <p.spek@tyil.nl>
+
+=begin LICENSE
+Copyright © 2020
+
+This program is free software: you can redistribute it and/or modify it under
+the terms of the GNU Affero General Public License as published by the Free
+Software Foundation, either version 3 of the License, or (at your option) any
+later version.
+
+This program is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+PARTICULAR PURPOSE. See the GNU Affero General Public License for more
+details.
+
+You should have received a copy of the GNU Affero General Public License along
+with this program. If not, see http://www.gnu.org/licenses/.
+=end LICENSE
+
+=end pod
+
+# vim: ft=raku noet sw=8 ts=8
diff --git a/resources/sql/check-migration-table-exists.sql b/resources/sql/check-migration-table-exists.sql
new file mode 100644
index 0000000..115cfc6
--- /dev/null
+++ b/resources/sql/check-migration-table-exists.sql
@@ -0,0 +1,6 @@
+SELECT EXISTS (
+ SELECT
+ FROM information_schema.tables
+ WHERE table_schema = 'public'
+ AND table_name = '_migrations'
+);
diff --git a/resources/sql/create-migration-table.sql b/resources/sql/create-migration-table.sql
new file mode 100644
index 0000000..eebb508
--- /dev/null
+++ b/resources/sql/create-migration-table.sql
@@ -0,0 +1,5 @@
+CREATE TABLE _migrations (
+ release VARCHAR NOT NULL,
+ name VARCHAR NOT NULL,
+ created TIMESTAMP NOT NULL DEFAULT NOW()
+);
diff --git a/resources/sql/delete-migration.sql b/resources/sql/delete-migration.sql
new file mode 100644
index 0000000..263290c
--- /dev/null
+++ b/resources/sql/delete-migration.sql
@@ -0,0 +1,4 @@
+DELETE FROM _migrations
+WHERE release = $1
+AND name = $2
+;
diff --git a/resources/sql/insert-migration.sql b/resources/sql/insert-migration.sql
new file mode 100644
index 0000000..4646ae6
--- /dev/null
+++ b/resources/sql/insert-migration.sql
@@ -0,0 +1 @@
+INSERT INTO _migrations (release, name, created) VALUES ($1, $2, $3);
diff --git a/resources/sql/select-migration.sql b/resources/sql/select-migration.sql
new file mode 100644
index 0000000..00e7b63
--- /dev/null
+++ b/resources/sql/select-migration.sql
@@ -0,0 +1,5 @@
+SELECT *
+FROM _migrations
+WHERE release = $1
+AND name = $2
+;