App::Gitc::Util - The workhorse of gitc
version 0.60
Displays $message and waits for the user to press 'y' or 'n'. If he enters 'y', a true value is returned. If he enters 'n', a false value is returned.
$message
Returns the name of the branch that's currently checked out in Git.
Returns the config specific to this project's ITS.
Returns the from and to state based on a command provided to GITC.
Returns an ITS pseudo-object
Some day it would be nice to add 'new' to these and return a real instantiated object... but this fits the bill.
Guesses which ITS object we need based on the changeset name, returns the object if it supports it, or just the class name.
A wrapper for executing git commands and handling errors. In void context, the command is executed using system. In scalar context, the command's output is captured, chomped and returned. In list context, a list of chomped lines is returned.
system
Returns a nested hash data structure representing Git's configuration.
Make sure that all tracked files match the index and match the commit object. If the working directory is not clean, ask the user whether to proceed. If he wants to proceed, this sub stashes the current changes and returns the stash's commit ID. In this case, it's the caller's responsibility to invoke "git stash apply" with this ID to restore the changes, when appropriate.
If the user does not want to proceed, an exception is thrown. In most cases, this will accomplish what the user desired by halting the program.
If the directory is clean, a false value is returned which indicates that nothing was stashed while guaranteeing cleanliness.
Open's the user's preferred editor so that he can interactively edit $filename.
$filename
Appends the contents of the hashref $data to the changeset meta data. Returns a unique identifier which can be used by "meta_data_rm".
$data
Deletes the meta data entry with ID $id in changeset $changeset.
$id
$changeset
Deletes all changeset meta data for the changeset named $changeset. The project is determined by the current working directory. Returns the number of meta data entries that were deleted.
Deletes all changeset meta data for the project named $project. Returns the number of meta data entries that were deleted.
$project
Increments and returns the most recent version tagged for the given $branch. This only applies to projects that have the 'use_version_tags' config set to true. If $new_major_version is truthy, increment the major version # and make minor 0
$branch
Returns a tag name for an updated version of the given $branch. This only applies to projects that have the 'use_version_tags' config set to true.
Returns a hashref with configuration details about this project.
Configuration is loaded from the following sources: * /etc/gitc/gitc.config * $PROJECT_ROOT/gitc.config * $HOME/.gitc/gitc.config
It will then parse all the paths in the GITC_CONFIG environment variable (separated by :).
These configuration files are all merged together with the later files overriding the earlier.
Finally we merge the default config with the per-project configuration we found to generate a final fully baked configuration for the project.
The following subroutines are only exported when they're asked for.
Returns an arrayref of arrayrefs representing all tags that have been archived for the current project. The internal arrayrefs hold the tag's SHA1 and ref name, in that order. The tags are returned in sorted order increasing by ref name (the same order as .git/packed-refs).
Determines the base branch for the given $commit_id. The base branch is the most specific branch on which this commit lies. It's typically used for converting an earlier commit on a branch (such as tag "test/2009-12-29T12_13_14") into the name of the branch (such as "test"). If we can't determine the branch name, returns 'unknown'.
$commit_id
Returns a commit ID indicating the commit on which the branch at $ref is based. For example, if we have a topology like this
$ref
o-----A / o---o---X---o---M
where A is the head of a branch and M is the head of master. The branch point of A is commit X. If A is later merged into M, the branch point remains the same.
See "full_changeset_name" for a way to convert a changeset name into a value suitable for $ref.
Given a $changeset name, returns an arrayref of the changeset names (for existing changesets) in this same changeset group. A changeset group is defined as any changesets that share the same Eventum number or prefix (if the group is not associated with an Eventum issue). The resulting list of changesets is sorted in the traditional order. See "sort_changesets_by_name".
TODO: This code should be reworked to use logic for each its
Returns a list (or string, depending on context) of environments to which this changeset has been merged. If it's not been merged yet, the list is empty (of course).
Given a hashref of named arguments, returns a list of changeset names indicating which changesets were promoted to $target for $project between the times $start and $end. The times should be in the format 'yyyy-mm-ddTHH:MM:SS'
$target
$start
$end
Returns a list (or arrayref, depending on context) of decorations associated with $commit (a commit ID). In cases where many Git processes are forked to obtain decoration info, this function can be substantially faster.
$commit
Determines the most recent version tagged for the given $branch. This only applies to projects that have the 'use_version_tags' config set to true.
Given an $environment name, returns the name of the environment that precedes that one in promotion order. For instance environment_preceding('stage') produces 'test'.
$environment
environment_preceding('stage')
If there is no such $environment, an exception is thrown. If no environment precedes the one given, returns undef.
undef
Given the $name of a changeset, returns a Git ref which correctly addresses that changeset's head. It doesn't matter if the changeset is newly opened, pending review or merged. The resulting ref points at the head of that changeset.
$name
See also short_ref_name.
Returns the absolute path of the current .git directory. Bare repositories and normal repositories are both handled correctly.
Fetches the remote repository and does a little routine maintenance to make sure that the repository performs optimally. This is called from commands which are consistently, but infrequently, run by developers. It helps to hide some of the repository maintenace that Git requires.
A wrapper around "git tag" which updates the commit decoration hash (See "commit_decorations". This should always be used instead of calling "git tag" directly.
Returns nothing useful.
Returns the highest number used for any quickfix changeset in $project_name. If there have been no quickfix changesets, returns 0.
$project_name
Returns a list (or arrayref, depending on context) of hashes. Each hash represents the details about a particular event related to the changeset named $changeset within the project named $project_name. The events are returned in chronological order.
If $project_name is omitted, the name of the project in the current working directory is used instead.
Returns the name of the owner of a changeset based on a changeset's $history.
$history
Returns the name of the most recent reviewer of this changeset. If this changeset has never been submitted for review, returns undef.
Returns the current status of a changeset based on a changeset's $history.
Returns the user ID of the most recent submitter. If there is no submitter in the history, returns undef.
Returns a true value if this user wants to automatically fetch from the origin.
Returns true if the commit pointed at by $ref is a merge commit. Otherwise, it returns false.
Marks the currently running gitc command as suspendable. If a command which is marked as suspendable is currently suspended, calling this function throws an exception.
Any command which suspends itself should call this function. It helps avoid user error when the user tries to run the same command again instead of resuming the suspended command.
Returns a commit ID if $name is a valid Git "ref". Otherwise, it returns false.
Opens the current repository's packed refs and returns:
* a file handle to the opened packed refs * a file handle to a temporary file * the name of the temporary file
The first line read from the first filehandle is the first packed ref in the file. Any header lines are stripped and automatically copied to the new temporary file.
The mandatory $prefix argument specifies a prefix for the temporary file. This should usually be the name of the gitc command calling "open_packed_refs".
$prefix
The temporary file does not automatically delete itself. The caller is responsible for that.
$spec is a single command line argument which is supposed to uniquely identify a changeset and its associated project. undef means "infer everything from the repository I'm in". project#changeset means to use the specified project and changeset. changeset means to use the given changeset within the current directory's project.
$spec
project#changeset
changeset
Returns a list containing the project name and the changeset name. If there's any trouble obtaining those two, an exception is thrown.
Returns the name of the project in the current working directory.
Returns an absolute path to the current repository's project root. If called from a bare repository, it throws an exception.
Returns true if origin has a branch named $branch_name. Otherwise, it returns false.
$branch_name
Sends an email with a standard format, allowing the user to edit the template. $args is a single hashref of named arguments. The argument to specifies the username of the recipient. subject provides the email subject. changeset is the name of the changeset associated with this email.
$args
to
subject
The following optional arguments are also accepted. project is the name of the project related to this changeset email. If it's omitted, the project in the current working directory is used instead. content specifies the main body of the email. If omitted, an empty body template is used. link provides a URL which is included at the top of the email.
project
content
link
If the lazy argument is true, the email message is built but not sent. Instead, "sendmail" returns a code reference. When that code reference is called, the email is sent. This is particularly useful when you want a user to compose an email in one context (so he can cancel an operation early, for example) but delay sending the email until you're certain it should go out.
lazy
Returns the full path to the sendmail binary.
Given a Git $ref, returns a shorter name for it. This is typically the name of the changeset to which $ref refers. This function is the inverse of "full_changeset_name".
Sorts a list of changeset names into a sensible order. Typical usage is:
sort_changesets_by_name( \@list_of_changesets ); # @list_of_changesets is now sorted
Converts a string of $decorations as produced by git log --decorate or git log --pretty=format:%d into a list of full ref names.
$decorations
git log --decorate
git log --pretty=format:%d
Returns the top-level directory for the current branch.
Invokes git log $log_string and calls the code reference $callback for each commit encountered. $callback is invoked with the following arguments in a hashref:
git log $log_string
$callback
commit - this commit's ID parents - an arrayref of the commit's parent commit IDs message - an arrayref of the commit's message lines
Returns a hashref whose keys are the names of unmerged changesets and whose values are the respective changeset histories (see "history").
Returns a list of the changesets which are included in $from but not yet part of $to. For example, unpromoted('origin/master', 'origin/test'), returns the changesets that are in master but not in test.
$from
$to
unpromoted('origin/master', 'origin/test')
master
test
One way to think about it is that if you promoted $from into $to, what other things would be promoted to $to as a result. This is the way that gitc-unpromoted is implemented. This subroutine implements a more general idea of "not included in" than that command makes available.
$from can also be an arrayref of branches. In this case it means, "If I were to promote everything listed in @$from, what all would be promoted.
@$from
The order of the returned changesets is significant. Changesets always appear in the list before their dependencies. In Git terms, "child commits are given before their parents." Since demotions are not accomodated by Git's data model, they are placed at the end of the list of unpromoted changesets.
Returns the name of the gitc command that started this whole mess. This is mostly a helper subroutine for eventum_transition_status. If the command name can't be determined, an exception is thrown.
Used internally to calculate target for state change.
Given a command and a specified state this checks the block list in the project configuration and returns true if the state should block the command from proceeding.
command
state
NOTE: Block list must be an arraref in the project configuration
Grant Street Group <developers@grantstreet.com>
This software is Copyright (c) 2013 by Grant Street Group.
This is free software, licensed under:
The GNU Affero General Public License, Version 3, November 2007
To install App::Gitc::Test, copy and paste the appropriate command in to your terminal.
cpanm
cpanm App::Gitc::Test
CPAN shell
perl -MCPAN -e shell install App::Gitc::Test
For more information on module installation, please visit the detailed CPAN module installation guide.